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1.0 GENERAL INFORMATION 

1.1 PROGRAM ABSTRACT 
1*1*1 STRUCTURE OF PROGRAM 

HIS DIAGNOSTIC OCCUPIES 14«5K WORDS Of MEMORY AMD IS COMPATIBLE WITH 

8i% E F8 P KDEf D XXDP A "lcT I I S e A VT E J U Ic! T ^BI L ?IlE^R E lAf X P P e RT IMAGE^ 

COMMAND BELOW FOR DETAILS OF CHAINING PROCEDURE) ® IT IS k SINGLE 
PROGRAM FROM THE STANDPOINT OF THE DIAGMOSTIC USER, BUT WE HAVE 

INDEPENDENTLY SH dILn^ FiSifelMfc! W1C " " lLL L| " R ™ RELEASED 

WHEN THIS DIAGNOSTIC IS SfA 
THE SUPERVISOR PORTION* i 
ABOUT THE ENVIRONMENT* THE 




A PROMPT CHARACTER (DS 8>) 
AMY OF SEVERAL COMMANDS AS DESCRIBED BELOW. 

THE SUPERVISOR CODING FOLLOWS IMMEDIATELY THE DIAGNOSTIC TEST CODING* 
BUT THE SUPERVISOR LISTING HAS BEE1 SUPPRESSED FOR GENERAL 

Bp T TfiE UT SUPERVISnR M ASslyBLY T LISTING!! AND i! E jU?*8l l&sllM .iSTOSf 

OF A SOFTWARE PROBLEM. 

1.1.2 DIAGNOSTIC INFORMATION 

THIS PROGRAM TESTS AMD EXERCISES RL01 . DISK DRIVES RL11/RLV11 
CONTROLLERS (4 DRIVES PER CONTROLLER) • THE EMTIRE PROGRAM IS RUN OM 
THE FIRST DRIVE BEFORE STARTING ON THE SECOND. THE PROGRAM STARTS BY 
TEST ING^THE^SIMP^ USING THE LOGIC TESTED IN EARLIER 

. PROGRAM FIRST TESTS THE RL0.1 INTERFACE AMD. BASIC DRIVE LOGIC. If 
I BEGINS TESTING THE SEEK OPERATIONS USING SINGLE DIFFERENCES* 
CEDING INTO SEEKS OF GREATER DIFFERENCES* SEEK TIMING IS DONE 
•R THE SEEK LOGIC HAS BEEN TESTED* 

DATA TRANSFERS ARE DONE AFTER ALL THE SEEK TESTS* THE FIRST DATA 
TRANSFER IS READING OF THE BAD SECTOR FILES WHICH ARE STORED AND USED 
LATER TO PREVENT TESTING ON BAD SECTORS. FOLLOWING DATA READ AND 
WRITE TEST Iff G# THE PROGRAM TESTS FOR OVERWRITE PROBLEMS AND ADJACENT 
CYLINDER INTERFERENCE* 

SEEK TIMING/ ROTATIONAL TIMING/ AND WRITE LOCK DATA PROTECTION ARE 
DONE IF MANUAL INTERVENTION IS REQUESTED* 

1,2 . SYSTEM REQUIREMENTS 
1*2*1 HARDWARE REQUIREMENTS 
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PDP-ll/LSI-11 PROCESSOR WITH 16K OR MORE OF MEMORY 
CONSOLE DEVICE (LA30 £ LA36, VTSO^ETC* ) 
RLll/RLVll CQNTROLLER(S) 
1-8 RLOl DRIVES 

1-8 RLOIK CARTRIDGES WITH BAD SECTOR FILE 
KW11P, KW11L (OPTIONAL) 
LINE PR INTER (OPTIONAL) 

1*2.2 SOFTWARE REQUIREMENTS 

CXRLDBO RLOl DRIVE TEST PART 2 
(FORMERLY MD-11-DZRLD-A) 

1*3 RELATED DOCUMENTS AND STANDARDS 

RLOl OSERS MANUAL ( EK-RLOl-UG-PRE) 

XXDP USERS MANUAL 

1.4 DIAGNOSTIC HIERAPCY PREREQUISITES 

THE RLOl SUBSYSTEM SHOULD HAVE SUCCESSFULLY RUN THE FOLLOWING 
PROGRAMS % 

CZRLABO RLll/RLVll RLOl CONTROLLER TEST (PART 1) 

CZRLBBO RLll/RLVll RLOl CONTROLLER TEST (PART 2) 

CYRLAAO RLVI1 RLOl DISKLESS TEST (RLV11 ONLY) 

CZRLCBO RLOl DRIVE TEST (PART 1) 

1.5 ASSUMPTIONS 

THE HARDWARE OTHER THAU THE RLOl SUBSYSTEM IS ASSUMED TO WORK 
PROPERLY* FALSE ERRORS NAY BE REPORTED IF THE PROCESSOR ? ETC, DO NOT 
FUNCTION PROPERLY. 

2.0 OPERATING INSTRUCTIONS 

2.1 HUM TO RUN THIS DIAGNOSTIC 
2*1* 1 THE SIX STEPS OF EXECUTION 

THIS DIAGNOSTIC SHOULD BE LOADED AMD STARTED USING NORMAL XXDP 
PROCEDURES* THE START COMMAND SHOULD NOT SPECIFY AN ADDRESS^ BECAUSE 
THE DIAGNOSTIC HkS THE PROPER TRANSFER ADDRESS CODED INTO IT* 

WHEN THIS DIAGNOSTIC IS STARTED^ THE FOLLOW NG STEPS MILL OCCUR I 
* STEP 1 * 
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A SHORT SERIES OF "HARDCORE QUESTIONS" MILL BE ASKED: 

QUESTION MEANING 

L-CLK (L) N ? IS THERE AN L-CLOCK? 

P-CLK (L) N ? * " " P-CLOCK? 

50 HZ (L) N ? IS THE POWER 50 CYCLES (AS IN EUROPE)? 

LSI CL> N ? IS MACHINE AN LSI? 

LPT CL) N ? IS THERE A LINE PRINTER? 

MEM (K) (D) 16 ? HON MANY K OF MEMORY ARE THERE? 

THE DEFAULTS (SHOWN AFTER EACH QUESTION) CAN BE SELECTED BY HITTING 
CARRIAGE RETURN. IT IS POSSIBLE THAT NOT ALL OF THE QUESTIONS WILL BE 
ASKED: FOR EXAMPLE/ IF YOU SAY "YES" TO THE L-CLOCK QUESTION, THE 
P-CLOCK QUESTION WILL NOT BE ASKED. 

IF NEITHER P OR L CLOCK ARE ANSWERED YES THE OPERATOR WILL BE ASKED TO 
TYPE TWO CHARACTERS 4 SECONDS APART. 

********** 

* STEP 2 * 
********** 

WHEN YOU HAVE ANSWERED ALL THE HARDCORE QUESTIONS, THE DIAGNOSTIC WILL 
ISSUE THE PROMPT "DS-B>". FROM THIS POINT UNTIL THE TIME WHEN YOU 
RESTART XXDP, YOU WILL BE TALKING TO THE DIAGNOSTIC* NOT XXDP. WE 
WILL REFER TO THE PRESENCE OF THIS PROMPT AS BEING IN DIAGNOSTIC 
COMMAND MODE, AS OPPOSED TO XXDP COMMAND MODE. 

AT THIS POINT YOU WILL ENTER A "START" COMMAND. THIS IS NOT THE SAME 
AS THE XXDP "START" COMMAND, WHICH YOU ALREADY ISSUED IN RESPONSE TO 
THE XXDP DOT PROMPT. THIS "START" COMMAND CAN TAKE A NUMBER OF 
SWITCHES AND FLAGS (ALL OPTIONAL) AND THE DETAILS OF THESE ARE SET 
FORTH IN "2.3 DETAILS OF COMMANDS AND SYNTAX". HOWEVER, IN ORDER TO 
USE THE PROGRAM, ALL YOU NEED TO SAY IS SOMETHING LIKE THIS: 

S WP ASS : 1AFLAGS :HBE 

THINGS TO NOTE HERE: 

1. ONLY THE FIRST THREE CHARACTERS OF THIS OR ANY COMMAND AT THE 
"DS-B>" LEVEL NEED TO BE TYPED. 

2. THE "PASS" SWITCH SPECIFIES HOW MANY PASSES YOU DESIRE. A 
PASS CONSISTS OF RUNNING THE FULL DIAGNOSTIC AGAINST ALL 
UNITS BEING TESTED (THIS WILL BE EXPLAINED SHORTLY). ONE 
PASS IS SPECIFIED IN THE ABOVE EXAMPLE. 

3. THE "FLAGS" SWITCH MAY SPECIFY KHY OF A NUMBER OF FLAGS, BUT 
THE MAIN USEFUL ONES AR€L: 

LOE LOOP ONE -ERROR 

HOE HALT ON ERROR 

IER INHIBIT ERROR PRINTOUT 
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THE HOE FLAG IS SPECIFIED M. THE ABOVE EXAMPLE (WE'LL SEE WHY 
SHORTLY)* 

********** 

* STEP 3 * 
********** 

WHEN YOU HAVE TYPED in I n START 38 CQMMAND £ THE DIAGNOSTIC HILL COME 
BACK WITH THE QUESTION "# UNITS? 88 TO WHICH YOU SHOULD RESPOND BY 
fYPING IN THE NUMBER OF DEVICES YOU WISH TO TEST* 

A WORD OF WARNING HERE S THE' NUMBER OF UNITS DEPENDS ON THE TARGET 
DEVICE OF THE DIAGNOSTIC* FOR EXAMPLE* IF THE DIAGNOSTIC IS DIRECTED 
AT A DISK DRIV£ # THEN THE NUMBER OF UNITS WOULD BE THE I UMBER OF 
DRIVES TO BE TESTED- WHEREAS IF THE DIAGNOSTIC WAS DIRECTED AT THE 
DISK CONTROLLER* THEN THE NUMBER OF UNITS WOULD BE THE NUMBER OF 
CONTROLLERS* THE TARGET DEVICE OF A DIAGNOSTIC CAN ALWAYS BE 
DETERMINED. BY INSPECTING THE "HEADER" STATEMENT NEAR THE BEGINNING OF 
THE SOURCE CODE* ONE OF THE OPERANDS OF THIS "HEADER" STATEMENT 
SHOULD BE THE DEVICE TYPE OF THE DIAGNOSTIC* 
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****** 

* STEP 4 * 

WHEH YOU HA¥E TYPED IN THE MUMBER OF UMTS TO BE TESTED^ THE 
DIAGNOSTIC WILL ASK YOU THE "HARDWARE QUESTIONS'®* THE AHSHERS TO 
THESE QUESTIONS ARE USED TO BUILD TABLES IU CORE # CALLED ^HARDWARE 
P~T ABLES SS * OME HARDWARE P-T1BLE HILL BE BUILT FOR EACH UIIT TO BE 
TESTED* 

THERE ARE SEVERAL HARDWARE QUESTIONS AMD THE ENTIRE SERIES WILL BE 
POSED N TIMES/ INHERE N IS THE NUMBER OF UNITS* 

THIS REPRESENTS A HEW PHILOSOPHY IN DIAGNOSTIC ENGINEERING* 
DIAGNOSTICS IN THE FUTURE MILL NOT BE URITTEH TO IUTOSIZE OR ASSUME 
STANDARD ADDRESSES t III STEAD* THEY MILL ASK THE OPERATOR FOR ILL THE 
Iff FORMATIOM THEY NEED TO TEST THE DEVICE* 



********** 

AFTER YOU H AYE ANSWERED ALL THE HARDWARE QUESTIONS (SEC 2.5) FOR ALL 
THE UMTS. YOU HILL BE ASKED iS CHAHGE Sfef?' 1 IF YOU MAMT TO BE ASKED THE 
SOFTWARE QUESTIONS THAT DETERMINE THE BEHAYIQR OF THIS PROGRAM, TYPE 
8f Y w * IF YOU WAMT TO TIKE ALL THE DEFAULTS TO THESE QUESTIOMS # TYPE 
m M*K IF^YOU^TYPE^^Y^YOU MILL BE ASKEO THE^^SQggWARE^^QUESTTX OMS ^ (SEC 

PRO^AN! flD THE H iERlli g Op S QUESTIoii MILL ^"aIkId^UST A |icL TI REGARDLisi 
OF THE MUMBER OF UNITS TO BE TESTED® 

********** 
********** 

AFTER YOU HA¥E ANSWERED THE SOFTMARE QUESTfOifS £ THE DIAGNOSTIC WILL 
BEGIN TO EXECUTE THE HARDWARE TEST CODE. THERE IRE SEYERIL THUGS 
THAT CAN HAPPE1 iEXT* DEPEIIDIMG ON WHETHER A HARDWARE ERROR IS 
ENCOUNTERED AUQ ALSO ON HHAT SMITCH VALUES YOU SELECTED 01 THE START 
COMMAND* CONSIDER THE POSSIBILITIES : 

1. IF MO ERROR IS EMCOUiTERED# THEM THE DIAGNOSTIC MILL SIMPLY 
EXECUTE THE DESIRED DUMBER OF PASSES AMD RETURM TO COMMAND 
NODE (PROMPT DS-B>)* 
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IF AN ERROR IS ENCOUNTERED* THE! ONE OF THREE THINGS HAPPENS*, 
DEPENDING ON THE SETTINGS OF THE HOE AND LOE FLAGS. 

HOE SETS THE ERROR HILL BE REPORTED ON THE CONSOLE AND 
THE DIAGNOSTIC MILL RETURN TO COMMAND MODE. 

LOE SET t THE DIAGNOSTIC WILL LOOP ENLESSLY ON THE BLOCK 
OF CODE THAT DETECTED THE ERROR. 

NEITHER HOE NOR LOE SETS THE ERROR HILL BE REPORTED ON 
> THE CONSOLE AND NORMAL EXECUTION WILL RESUME 
AS IF NO ERROR HAD OCCURED. 



2.1.2 SAMPLE RUN-THROUGH 

LET'S SEE HOW ALL THIS WORKS IN A REAL SITUATION. RECALL THAT ME 
ENTERED THE COMMAND "ST A/ PASS % 1/FLAGSsHOE". THIS MOULD BE A VERY 
TYPICAL MAY TO RUN THE DIAGNOSTIC* IF NO ERRORS AJ?E ENCOUNTERED. THE 
SINGLE REQUESTED PASS MILL BE EXECUTED AND THE PROMPT MILL BE 
REISSUED* 

IF AN ERROR IS ENCOUNTERED, THE ERROR SILL BE REPORTED AND THE PROMPT 
MILL BE REISSUED (BECAUSE THE HOE FLAG IS SET) . AT THIS POINT THERE 
ARE FOUR DIFFERENT MAYS YOU CAN GET THE PROGRAM GOING AGAINSS 

1. ISSUE ANOTHER "START" COMMAND (THUS GOING THRU ALL OF STEPS 
2, 3, 4, 5, AND 6 AGAIN) 

2. ISSUE A "RESTART" COMMAND (SAME AS START COMMAND EXCEPT THAT 
THE HARDMARE QUESTIONS ARE NOT ASKED) 

3. ISSUE A "CONTINUE" COMMAND (EXECUTION MILL RESUME AT THE 
BEGINNING OF THE PARTICULAR HARDMARE TEST (MOST DIAGNOSTICS 
CONSIST OF A NUMBER OF THESE) THAT IT MAS IN WHEN THE ERROR 
HALT OCCURED. NO QUESTIONS ASKED. 

4. ISSUE A "PROCEED 11 COMMANDS EXECUTION MILL RESUME AT THE 
INSTRUCTION FOLLOWING THE ERROR REPORT (THIS IS A SPECIAL 
COMMAND AND CAN BE ISSUED ONLY AT A HALT ON ERROR). 



THE MOST TYPICAL THING TO DO HERE IS TO ISSUE THE PROCEED, 
DIFFERENT FLAG SETTINGS. PROBABLY YOU MOULD MANT TO SAY 

PRO/FLAGS t IER t LOEsHOE=0 



BUT MITH 
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THIS MILL DO THE FOLLOWIiGt 

1. TURM OP THE IER (IHHIBIT ERROR PRI1TOOT) FLAG 
2* TURM OH THE LOE FLAG 
3* TURM OFF THE HOE FLAG 

4. RESUME EXECUTIOl AT INSTRUCTION AFTER ERROR REPORT 

THE DIAGNOSTIC HILL MOW LOOP OM THE BLOCK OF CODE THAT DETECTED AID 
REPORTED THE ERROR. BUT SO ERROR PRINTOUT MILL OCCUR* THUS YOU C1I 
STUDY THE ERROR OR SCOPE IT OR WHATEVER. 

WHEN YOU'VE SEE! EHQUGH # YOU MAY HIT CONTROL/C. THIS MILL TAKE YOU 
OUT OF THE LOOP AMD PUT YOU BACK INTO COMMAND MODE. YOU MOW HAVE 
THREE CHOICES! 

1. START 

2. RESTART 
3* CONTINUE 

LET *S SAY YOU*YE REPAIRED THE DEFECT FOUHD ABOVE AMD WANT TO FINISH 
RUNNING THE DIAGNOSTIC. YOU MOULD TYPE 

COH/FLAGS?HOESIER=OSLOE=0 

THIS MILL RESTORE THE FLAGS TO THEIR ORIGINAL VALUES AMD RESUME 
EXECUTION AT THE BEGIHIMG OF THE HARDWARE TEST YOU WERE IN • IF THE 
ERROR DOES iOT RECUR, THE EXECUTIOM MILL FLOM RIGHT OM THRU TO THE 
iEKT ERROR OR TO END OF PASS. 

IF IT EMD OF PASS YOU WANT TO RUN THE DIIGMOSTIC AGAIN, YOU HI¥E TWO 

CHOICESI 

1. START 

2. RESTART 

WOULD CHOOSE ONE, DEPEND ING OM WHETHER YOU WANTED TO AISiER THE 
DWARE QUESTIONS AGAIN* 



SEQ. §§§§ 



THE FULL PRINT-OUT FROM THE ABOVE DIALOGUE MIGHT LOOK LIKE THIS: 



BY 

WHOM 

E1TERED1 

• R DZRKXX 
DZRKXX D 
L-CLK CD N ? Y 0,0 
50HZ (L) N? D 
LSI CL) M ? D 
LPT CL) N ? D 
MEM (K) CD) 16 ? D 
DS-B>STA/ PASS : 1/ FLAGS: HOE D # 

S UNITS CD) ? 2 0,0 
1IT 1 D 



CSR CO) ? 0,0 
VECTOR CO) ? D,0 
BR LEVEL CO) ? J),Q 



DRIVE CO) ? D,0 

UNIT 2 D 

CSR CO) ? D,0 

VECTOR CO) ? D,0 

BR LEVEL CO) ? D,0 

DRIVE CO) ? 1 D,0 

CHANGE Si CL) ? N D,0 

DZRKXX HARD ERR 00004 TST 003 SUB 002 PC:004130 D 

ERR HLT D 

DS-B >P RO /FLAGS : I ER : LOE : HOE=0 D,0 

**************************** ********************* 

AT THIS POINT THE DIAGNOSTIC IS LOOPING 01 THE 

ERROR MITHOOT PRINTING ANYTHING. YOU CAN SCOPE 

THE ERROR UNTIL YOU HAVE LOCATED IT* THEN *C OUT 
************************************************* 

"C 

DS-B >C0M/FLAGS SHOE IIERsLOE=0 D # 

CHANGE Si CL) ? N D # 

DZRKXX EOP 1 D 

DS-B>R EST ART /PASS: 1 D,0 

CHANGE SM CL) ? M D,0 



Page 11 



2*2 HOW TO CREATE A CHAINABLE FILE 

THE DIAGNOSTIC AS RECEIfED FROM RELEASE EIGINEERIMG CANNOT BE RUN IN 
CHAIN MODE* THA IS WHY IT BEARS THE EXTENSION 89 BIM 19 INSTEAD OF m BIC®« 
THERE IS A WAY, HOWEVER, TO CREATE A CHAINABLE PROGRAM FROM WHAT 
YOU*¥E GOT. 

IT CONSISTS OF RUNNING THE PROGRAM WITH THE SPECIAL COMMAND 8f CCI 88 
ISSUED WHERE YOU WOULD NORMALLY ISSUE A START COMMAND (TO THE PROMPT 
DS~B>. THIS COMMAND CAUSES THE DIAGNOSTIC TO GO THRU ALL THE 
QUESTIONS AND ANSWERS AND THEN TO HALT, JUST WHERE IT WOULD ORDINARILY 
BEGIN EXECUTION OF THE HARDWARE TEST CODE* AT THIS POINT YOU CAM DUMP 
THE PROGRAM AS IT SITS IN CORE TO THE LOAD MEDIUM, WITH THE NEW 
EXTENSION "BIC". 

HERE IS A SAMPLE DIALOGUE TO ACCOMPLISH THIS: 
• R UPD2 

RESTART: XXXXXX 
*CLR 

*LOAD DI AG» BIN 
XFER:200 CORE i 0,60602 
*START 200 
L-CLK (L) N ? 



DS-B>CCI 

# UNITS (D) ? 4 

CHANGE SW (L) ? N 
PTAB END: 60632 

********** *************************** 

* AT THIS POINT THE MACHINE HALTS AND* 

*YOU MUST RESTART AT ADDRESS XXXXXX* 
************************************* 

*HICORE 60632 
CORE : 0*60632 
*DUMP DKO: DIAG.BIC 

THE RESULT OF DOING THIS IS THAT YOU CAM NOW BUILD AN XXDP CHAIN FILE 
CONTAINING THE XXDP COMMAND 

• R BIAG.BIC 

AND THE DIAGNOSTIC WILL EXECUTE WITHOUT MANUAL INTERVENTION, USING THE 
ANSWERS THAT YOU GAVE IT WHEN YOU DID THE CCI COMMAND* 



SB* 9011 
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2*3 DETAILS OF COMMANDS AMD SYNTAX 
2*3*1 TABLE OF COMMAND VALIDITY 

!&I re .f f ?8 r mi MPISf Sii G S?II££B£g l, Sffg £281? A " D DirFEREHT 

HOW ENTERED 
1* OPERATOR ENTERED *RUI DIAG* 



2» DIAGNOSTIC HAS FINISHED ALL 
ITS REQUESTED PASSED 

3* OPERATOR INTERRUPTED THE 
DIAGNOSTIC WITH CTRL/C 



4 - aw™ ssi irig°n! R i D ET iiiiirt 

rOMTINUE 





2*3.2 COMMAND SYNTAX 



DIAGNOSTIC IN CORE IS EXECUTED IN ACCORDANCE WITH THE SilTCHES 
SPECIFIED* THE MESSAGE 88 f UNITS? 18 IS PRINTED* THE START COMMAND MAY 
BE ISSUED MHEN DIAGNOSTIC COMMAND MODE HAS BEEN ENTERED VIA ONE OF THE 
LOilMGS A) OPERATOR TYPED 8fl RUi DIAGNOSTIC* 9 B) DIAGNOSTIC FINISHED 
CUTING C) ERROR MAS ENCOUNTERED WITH HOE FLAG SET D> OPERATOR 



FOLLOWING? A) OPERATOR TYPED 8fl RUi DIAGNOSTIC* 9 B) DIAGNOSTIC FINIS 
EXECUTING C) ERROR MAS ENCOUNTERED WITH HOE FLAG SET D) OPERA 1 
ENTERED CONTROL/C. 
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AFTER THE OPERATOR RESPONDS TO "# UNITS?", THE HARDWARE DIALOGUE IS 
INITIATED. WHEN IT IS COMPLETED* THE QUESTIONS "CHANGE SW? M IS 
ISSUED, AND THE ANSWERS, IF GIVEN* BECOME THE NEW DEFAULTS. THEREFORE 
IT IS NECESSARY TO RELOAD THE PROGRAM IN ORDER TO RETURN TO THE LOAD 

DEFAULTS. 

THE SWITCH ARGUMENTS ARE AS FOLLOWS: 

"TEST-LIST" IS A SEQUENCE OF DECIMAL NUMBERS CIS 2 ETC.) OR RANGES OF 
DECIMAL NUMBERS (1-5:8-10 ETC.) THAT SPECIFY THE TESTS TO BE EXECUTED. 
THE NUMBERS ARE SEPARATED BY COLONS. THE NUMBERS RANGE FROM 1 TO THE 
LARGEST TEST NUMBER IN THE DIAGNOSTIC. THEY MAY BE SPECIFIED IN ANY 

ORDER. TESTS WILL BE EXECUTED IN NUMBERICAL ORDER REGARDLESS OF THE 
ORDER OF SPECIFICATION. THE DEFAULT IS TO EXECUTE ALL TESTS. 

"PASS-CUT" IS A DECIMAL NUMBER INDICATING THE DESIRED NUMBER OF 
PASSES. A PASS IS DEFINED AS THE EXECUTION OF THE FULL DIAGNOSTIC 
(ALL SELECTED TESTS) AGAINST ALL UNITS SUMBITTED. THE DEFAULT IS 
NON-ENDING EXECUTION. .8 "FLAG-LIST" IS A SEQUENCE OF ELEMENTS OF THE 
FORM <FLAG> £ <FLAG=1> £ OR <FLAG=Q>, SEPARATED BY COLONS, WHERE <FLAG> 
HAS ONE OF THE FOLLOWING VALUES : 

HOE HALT ON ERROR, CAUSING COMMAND MODE TO BE ENTERED WHEN Ai 

ERROR IS ENCOUNTERED 
LOE LOOP ON ERROR* CAUSING THE DIAGNOSTIC TO LOOP CONTINUOUSLY 

WITHIN THE SMALLEST DEFINED BLOCK OF CODING (SEGMENT, 

SUBTEST, OR TEST) CONTAINING THE ERROR 
IER INHIBIT ERROR REPORTING 

IBE INHIBIT BASIC ERROR REPORTS 

IXE INHIBIT EXTENDED ERROR REPORTS 

PRI DIRECT ALL MESSAGES TO A LINE PRINTER 

PNT PRINT NUMBER OF TES BEING EXECUTED 

BOE BELL ON ERROR 

U AM RUN IN UNATTENDED MODE, BYPASSING MANUAL INTER! ENTIOI TESTS 

ISR INHIBIT STATISTICAL REPORTS 

IDU INHIBIT DROPPING OF UNITS BY DIAGNOSTIC 
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fHS FLAGS NAMED OR EQUATED TO i ARE SET, THOSE EQUATED TO © ARE 

CLEARED* A FLAG IOT SPECIFIED IS CLEARED. IF THE FLAGS SWITCH IS IOT 
GIVEN ALL FLAGS ARE CLEARED. 

^EOP-IICR 89 IS 1 DECIMAL NUMBER INDICATING HOW OFTEN (IN TERMS OF 
PASSES) IT IS DESIRED THAT THE END OF PASS MESSAGE BE PRINT ED. THE 
DEFAULT IS AT THE END OF EVERY PASS. 

*********************************************************************************** 

RESCTART)/TEST§TEST-LIST/PASS!PISS~CiT^^ 

*********************************************************************************** 

THE DIAGNOSTIC II CORE IS EXECUTED IM ACCORDANCE WITH THE SWITCHES 
SPECIFIED* HOWEVER, NEW P-TABLES ARE NOT BUILT. INSTEAD, THE OWES II 
CORE ARE USED. 

THE QUESTION ts CHAIGE SW? m IS ASKED, AID THE ANSERS IF GIfEl BECOME THE 
NEW DEFAULTS. THE COMMAND MAY BE ISSUED WHEN COMAND MODE HAS BEEN 
ENTERED VIA A) DIAGNOSTIC IS FINISHED B) HALT ON ERROR C) COiTROL/C. 

THE SWITCH ARGUMENTS ARE AS II THE START COMMAND EXCEPTS 

1. "UNIT-LIST 81 IS A SEQUENCE OF LOGICAL UNIT 1UMBERS RANGING 
FROM 1 THRU N (N = NUMBER OF UNITS BEING TESTED) SPECIFfllG 
WHICH UNITS ARE TO BE TESTED. THE LOGICAL UNIT NUMBER 
DESIGNATES THE POSITION OF THE P-TABLE IN CORE £ ACCORDING TO 
THE ORDER II WHICH THEY WERE BUILT. THE UNITS SPECIFIED MUST 
NOT HAVE BEEN DROPPED B¥ THE OPERATOR DROP COMMAND. THE 
UNIT-LIST DEFAULTS TO 58 ALL THAT HAfE IOT BEEN DROPPED B¥ 
OPERATOR COMMAND". THE EFFECT OF THE UNIT-LIST LASTS UNTIL 
THE NEXT START (WHERE IT IS AUTOMATICALLY RESET TO "ALL") OR 
THE NEXT RESTART. 

2. ILL UNSPECIFIED FLAG SETTINGS ARE UNCHANGED. 



******************************************* 

CONCTIHUE)/PASSS<PASS-CST/FLAGSS<FLAG~LIST> 

**************** *^r******^«r** *************** 

COMMAND MODE MUST HAVE BEEN ENTERED DUE TO A HALT 01 ERROR OR A 
COITROL/C. THE EFFECT OF THE COMMAND IS TO GO TO THE BEGINNING OF THE 
TEST THAT WAS BEIiG EIECUTED WHEN THE HALT OR COITROL/C TOOK PLACE. 
SOFTWARE DIALOGUE MAY OPTIONALLY BE REEIECUTED. HARDWARE PARAMETERS 
MAY MOT BE CHANGED. 

THE SWITCH ARGUMENTS ARE AS IN THE START COMMAND EXCEPTS 

1. DEFALT FOR PASS-CMT IS THE UNSATISFIED PASS-CNT FROM THE 
PREVIOUS START OR RESTART 

2. UNSPECIFIED FLAG SETTINGS ARE UNCHANGED 
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*************************** 

PRO(CEED)/FLAGS: <FLAG-LIST> 

*************************** 

COMMAND MODE MOST HIVE BEEN ENTERED III A HILT ON ERROR. THE EFFECT 
OF THE COMMAND IS TO BEGIN EXECUTION AT THE LOCATION FOLLOWING THE 
ERROR CALL. NEITHER HARDWARE NOR SOFTWARE PARAMETERS MAY BE ALTERED. 

THE SWITCH ARGUMENTS ARE THE SAME AS THE START COMMAND EXCEPTS 

1. UNSPECIFIED FLAG SETTINGS ARE UNCHANGED 

************************************************************* 

CCI/TESTITEST-LISf/PASSlPASS-CNT/rLAGSSFLAG-LIST/EOPsEOP-pCR 
*************************************** ********************** 

THE DIAGNOSTIC EXECUTES THRU ALL OPERATOR DIALOGUE AND HALTS AT THE 
HARDWARE TEST CODE. NOW THE OPERATOR CAM DUMP THE CORE IMAGE TO THE 
MEDIUM WITH A BIC EXTENSION. 

THE BIC FILE MUST BE HANDLED DIFFERENTLY DEPENDING ON WHETHER IT IS 
RUM MANUALLY OR IN CHAIN MODE. IF RUN MANUALLY IT CAN BE INVOKED 
EITHER WITH A 8S START is (Iff WHICH CASE IT WILL BEHAVE LIKE THE BIN FILES 
THE PRE-GENERATED ANSWERS TO OPERATOR QUESTIONS WILL BE IGNORED) OR 
WITH A "RESTART 18 (IN WHICH CASE THE PRE-GEMERATED OPERATOR ANSWERS 
MILL BE USED). 

IF RUN IN CHAIN MODE* AUTOMATIC EXECUTION WILL COMMENCE IMMEDIATELY 
FROM THE XXDP COMMAND l8 .R DIAG* 8 * THE COMMAND PROMPT 8S DS-B>* 8 WILL NOT 
BE ISSUED. 

ANY SWITCHES SPECIFIED ON THE CCI COMMAND WILL CARRY OYER WHEN THE BIC 
FILE IS RUN IN CHAIN MODE (EXCEPT THAT UAM IS ALWAYS SET THERE) BUT 
WILL NOT CARRY OYER WHEN IT IS RUN MANUALLY. 

TO DO A CCI ON A FULL SIZED DIAGNOSTIC (14.5K WORDS)* A MACHINE SIZE 
LARGER THAN 16K IS REQUIRED. THE EXACT SIZE NEEDED DEPENDS Off WHICH 
UTILITY IS USED TO EXECUTE THE DIAGNOSTIC AT CCI TIME. 

********************** 

DRQ(P) /UNITS: UNIT-LIST 
********************** 

THE UNITS SPECIFIED ARE DROPPED FROM TESTING UNTIL THEY ARE ADDED BACK 
OR UNTIL A START COMMAND IS GIVEM. A DROP CANNOT BE FOLLOWED BY A 
PROCEED. 

THERE IS ALSO A "DROP 1 * MACRO INTERNAL TO THE DIAGNOSTIC* WHICH GIfES 
THE FACILITY OF AUTO-DROPPING. THE DURATION OF A PROGRAM DROP, 
HOWEVER, IS ONLY UNTIL THE NEXT START OR RESTART. 
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******************* 

ISiaillllSIiMiil 

THE UNITS SPECIFIED HE ADDED BACK (THEY HOST HUE BEEI PREVIOUSLY 
DROPPED BY THE DROP COMMAND) TO THE TEST SEQUENCE* II ADD CANNOT BE 
FOLLOWED BY A PROCEED. 

******* 

PRI(NT) 
******* 

ALL STATISTICS TABLES ACCUMULATED BY THE DIAGNOSTIC ARE PRINTED. THE 
ISR (INHIBIT STATISTICAL REPORTING) FLAG IS CLEARED. 

*************************** 

DIS(PLAY) /UNITS: <UNIT-LIST> 
*************************** 

THE HARDWARE P-TABLES FOR ALL UNITS UNDER TEST ARE - PRINTED OUT IN THE 
FORMAT IN WHICH THEY WERE ENTERED. ANY UNITS THAT WERE DROPPED BY THE 
OPERATOR "DROP" COMMAND ARE SO DESIGNATED. 

******* 

FLA(GS) 
******* 

THE CURRENT SETTINGS OF ALL FLAGS ARE PRINTED. 

******** 

ZFL(AGS) 
******** 

ALL FLAGS ARE CLEARED. 

2.4 EXTENDED P-TABLE DIALOGUE 

THE FULL CAPABILITY OF THE HARDWARE DIALOGUE IS REVEALED BY THE 
FOLLOWING DISCUSSION OF WHAT HAPPENS INTERNALLY. 

AS SOON AS THE QUESTION "t UNITS?" IS ANSWERED (WITH THE NUMBER N* 
SAY) SPACE IN CORE IS ALLOCATED FOR N P-TABLES. ALL OF THE P-TABLES 
ARE OF THE SAME FORMAT* AND THERE IS A ONE-TO-ONE CORRESPONDENCE 
BETWEEN THE HARDWARE PARAMETER QUESTIONS AND THE SLOTS IN THE P-TABLE 
FORMAT. 



i 



tillus!!!* 1 ^ IS 

OS SUBSEQUENT TRIPS THRU THE QDEST10IS C THE SAME PROCESS IS CARRIED 

S^Se^S^aSyWiIFs^ 1 ^ Siittfel f H °I I8 L y A fi a ? E ffIZi D MJiF-'Sii 

PLAYED IN THE FIRST TRIP® 

RECEff ED^H fxpgfifl^IEoIl FR*OM^THE MM. 1 "" ° BE ^ 



A STRIffG OF ¥ALUES Plf BE GIfEM IS I RUGE (6-10 FOR EXAMPLE! * If THE 
REPRESEIT ^PORE MU|ERICIL g D|Tl # piS^SAMPLE^RAtiGI T|iiL|f ES^TO 

I #8 §lfiPLE C SlNGE IIC TlSiiZjiirES T&* THE* STRI IG f 6^8#10 (II 



it al Ki 

SHARING „,,„ 

ADDRESSES* THE 
IftCREMEHT OF 2)* 

MOM LET US SEE HQM ME COULD USE THESE CAPABILITIES TO COISTROCT I SET 
OF P-TABLES . ASSUME THAT ME HI¥E 64 UIITS # AMD THAT THERE ARE THRF 
HARDWARE PARAMETERS FOR EACH (THREE SLOTS li THE P~T ABLE# THRE 
HARDWARE QUESTIOMS II THE DIALOGUE) * LET THE DESIRED ¥ILUE FOR ff 
FIRST PARAMETER BE THE SOMBER 75 FOR ALL 64 TABLES. LET THE DESIRE 




THE FOLLOilUG DIALOGUE MOULD ACCOMPLISH THIS GOAL I 
# UMTS (D) ? 64 
UMIT I 

Q® 1. . . . 

\l ? Ye 



<QUESTIOi 1> ? 75 
<QUESTIOI 2> ? 1—20 



<QUESTIOPI 



UMIT 21 

21-49**51-64 
<QUESTIOM 3> ? 77 
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THE FIRST TIME THE SERIES IS ASKED* SLOT IE RECEIVES A 75 IN ALL 64 
^IPP^SLOOMQ BS c SIfES^THE^¥ALgES_I # 2 € 3 # «. 2 , # |5 IN..TABLES 1 THRU 20 

k 



AD L* DO « OL»U x 1 8U K&Wfilf&D I n& f X*,£* J* . • */ZV lR lAObDd J. 1 C1KU 

ID A CONSTANT 20 IN TABLES 21 THRO 64. SLOT THREE RECEIVES A 
DISTANT 76 IN ALL 64 TABLES. 



THE SECOND TIME THRU 

BE AFFECTED 

THE OPERATOR 



ME THRO THE SERIES* TABLES 21 THRO THE END ARE GOING TO 
(NOTE THAT THIS PIECE OF INFORMATION IS PRINTED 00T FOR 

IN THE FORM "UNIT XX* AT THE BEGINNING OF EACH SERIES}* 

QOESTION 1 IS RESPONDED TO BY A <CR>* SO SLOT ONE STATS A CONSTANT 75 
IN TABLES 21 THRO 64* SINCE NO NEW EXLICIT V ALOES ARE TYPED IN. SLOT 
TNO GETS THE VALUES 21*22, 23,. ••/ 49 IN TABLES 21 THRO 49* AND GETS A 
49 IN SLOT 50, AND GETS THE VALUES 51*52*53* ...*64 IN TABLES 51 THRO 
64. SLOT THREE GETS THE VALUE 77 IN TABLES 21 THRO 64. 

THE DIALOGUE IS TERMINATED WHEN THE SOFTWARE RECOGNIZES THAT 64 
EXPLICIT VALUES HAVE BEEN GIVEN FOR AT LEAST ON QOESTION (NAMELY 
QUESTION 2). 

2.5 HARDWARE PARAMETERS 

THE FOLLOWING QUESTIONS WILL BE ASKED ON A START COMMAND. THE VALUE 
LOCATED TO THE LEFT OF THE QUESTION MARK IS THE DEFAULT YALOE THAT 
WILL BE TAKEN ON A CARRIAGE RETORN RESPONCE. 

RL11 (L) ¥? 

ANSWER YES(Y) IF YOU HAVE AN RL11 CONTROLLER* NO(N) IF YOU HAVE AN 
RLV11 CONTROLLER. 

BUS ADDRESS (0) 174400? 

ANSWER WITH THE BUS ADDRESS OF THE CONTROLLER. 
VECTOR (0) 330? 

ANSWER WITH THE INTERRUPT VECTOR OF THE CONTROLLER. 
BR LEVEL (0) 5? 

ANSWER WITH THE INTERRUPT PRIORITY OF THE CONTROLLER. 
DRIVE (0) 0? 

ANSWER WITH THE DRIVE(S) CONNECTED TO THE CONTROLLER. 

2.6 SOFTWARE PARAMETERS 

THE FOLLOWING QUESTIONS ARE ASKED IF REQUESTED ON A START* RESTART, OR 
CONTINUE. THEY ALLOW FLEXABILITY IN THE WAY THE PROGRAM BEHAVES. THE 
SOFTWARE PARAMETERS GIVE THE PROGRAM FLEXIBILITY IN THE WAY IT RUNS. 
THE PARAMETERS CAN BE MODIFIED ON A START, RESTART* OR CONTINUE BY 
ANSWERING (Y)ES TO THE FOLLOWING QUESTIONS 
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CHANGE S,W. ? 

A YES ANSWER MILL ASK THE FOLLOWING SOFTWARE PARAMETER QUESTIONS/ WITH 
THE PRESENT DEFAULT VALUE PRINTED TO THE LEFT OF THE QUESTION MARK* 
(THE LAST ANSWER GIVEN IS THE DEFAULT) THE DEFAULT IS TAKEN ON A <CR>. 
CONTROL Z (~Z) MILL DEFAULT ALL REMAINING QUESTIONS AND START THE 
TEST* 

USE ALL CYLINDERS (H )? 

IF "YES SS £ THOSE TESTS THAT NORMALLY USE A SELECTED SET OF CYLINDERS 
WILL TEST EVERY CYLINDER ON THE CARTRIDGE* 

USE ALL SECTORS (N )? 

IF "YES ,8 £ THOSE TESTS THAT NORMALLY USE A SINGLE SECTOR TO TEST A 
GIVEN OPERATION ( SUCH AS SEEK DESTINATION) MILL READ AMD VERIFY EVERY 
SECTOR HEADER* 

EXECUTE MANUAL INTERVENTION TESTS (N )? 

IF "YES",, SEEK TIMING* ROTATIONAL TIMING, AND ssfRITE LOCK ERROR AND 
DATA PROTECTION TESTS ARE EXECUTED. THE ONLY TEST THAT ACTUALLY 
REQUIRES MANUAL INTERVENTION IS THE WRITE LOCK TEST AND THAT TEST WILL 
BYPASS AUTOMATICALLY AFTER WAITING 30 SECONDS FOR WRITE LOCK TO BE 
SET. 

LOWER SEEK LIMIT ( N) ? 

IF "YES"/ THE NEXT PARAMETER IS REQUESTED* 

ENTER VALUE (DECIMAL) (0)? 

THIS LIMIT IS IMPOSED ON ALL SEEK OPERATIONS SUCH THAT TESTING IS NOT 
DONE BELOW THAT LIMIT* IN ADDITION* SETTING THIS LIMIT (OR THE UPPER 
LIMIT, SEE BELOW) CAUSES THE FORWORD AMD REVERSE OSCILLATING SEEK 
TESTS TO PERFORM DIFFERENTLY (SEE TEST DESCRIPTION) « TESTS THAT 
REQUIRE ACCESS TO A SPECIFIC CYLINDER THAT FALLS BELOW THE SPECIFIED 
LIMIT WILL IGNORE THE LIMIT (SEE WRITE/READ TEST PART 1). 

UPPER SEEK LIMTT (N ) ? 

IF "YES" £ AN UPPER CYLINDER LIMIT IS IMPOSED IN THE SAME MANNER AS THE 
LOWER SE&K LIMIT* A "YES" RESPONSE WILL CAUSE THE FOLLOWING PARAMETER 
REQUEST. 

ENTER VALUE (DECIMAL) (255)? 
USE ONLY ONE SURFACE (N)? 
IF "YES", THE NEXT PARAMETER IS REQUESTED. 

SPECIFY SURFACE (0 OR 1) (DECIMAL) (0)? 
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NHICHEYER SURFACE IS SPECIFIED IS THE ONLY SURFACE TESTED IM THE 

ENTIRE PROGRAM* ANY TEST THAT IS DESIGNED TO TEST THE OTHER SURFACE 

IS AUTOMATICALLY BYPASSED. THE PROGRAM DOES NOT PRINT ANY IIDICATION 
THAT A TEST IS BYPASSED IN THIS CASE. 

SPECIFY ERROR LIMIT (DECIMAL) (20)? 

THIS PARAMETER SPECIFIES THE MAXIMUM NUMBER OF ERRORS ALLOWED. THIS 
LIMIT IS ON A PER DRIYE BASIS IN A SINGLE PASS. IF THE ERROR LIMIT IS 
EXCEEDED, THE DRIYE IS DROPPED FROM FURTHUR TESTING. 

DATA COMPARE ERROR LIMIT (DECIMAL) (20)? 

THIS PARAMETER SPECIFIES THE NUMBER OF DATA COMPARE ERRORS THAT MILL 
BE LISTED FOR A GIVEN COMPARE OPERATION. AFTER THE LIMIT IS REACHED, 
THE DATA ERRORS ARE NOT PRINTED BUT THE COMPARE CONTINUES UNTIL THE 
END OF THE DATA FIELD. A TOTAL IS REPORTED AT THE END OF THE COMPARE. 

DROP DRIVE IF NO RESPONSE (N)? 

IF THIS PARAMETER IS SPECIFIED AS YES, THE PROGRAM MILL CHECK IF THE 
DRIVE IS READY OR IF IT MILL RESPOND TO A GET STATUS BEFORE TESTING 
STARTS ON THAT DRIVE. IF IT IS NOT READY AND MILL NOT RESPOND TO A 
GET STATUS THE DRIVE IS DROPPED AND A MESSAGE IS PRINTED. 

3.0 ERROR INFORMATION 

ALL ERRORS ARE PRINTED VIA CONSOLE DEVICE. THE ERROR INCLUDES ERROR 
NUMBER, TYPE AND PROGRAM LOCATION. ERRORS INCLUDE REGISTERS BEFORE 
AND AT ERROR MITH RELEVENT DATA. 

3.1 ERROR REPORTING 

THE OPERATION MESSAGE (LINE 4) IS GENERATED IN A DYNAMIC MANNER BASED 
ON THE SUBSYSTEM FUNCTION BEING EXECUTED AT THE TIME OF THE ERROR AND 
THE STATE OF THE FLAGS IN THE LOCATION TAGGED f *0PPLA6S®** THE POSSIBLE 
OPERATION MESSAGES ARE GIVEN BELOi. 

SEEK - FROM (CYL HUM) DIFF CCYL DIFF) SGM (0 OR I) HD CO OR 11 VHERE 
THE VALUES ARE GIVEN IN OCTAL. THIS MESSAGE IS THE RESULT OF A SEEK 
OPERATION THAT MAS VERIFIED BY A READ HEADER AND THE HEAD POSITION 
AFTER A SEEK IS IN ERROR. (THE ACTUAL HEAD POSITION IN THIS ERROR 
SITUATION IS GIVEN II THE RESULT LINE, LINE 5.) 

READ DATA - IS A READ DATA OPERATION MHERE SOME FORM OF ERROR MAS 
DETECTED IN THE ACTUAL READ OPERATION. THIS ERROR COULD BE HARDMARE 
DETECTED SUCH AS DATA CRC, HEADER CRC £ HEADER NOT FOUND, ETC./ OR A 
SOFTMARE DETECTED ERROR SUCH AS DRIVE READY RESET AFTER A READ DATA 
COMPLETED. 

READ DATA MITH DATA COMPARE - IS AN ERROR THAT MAS DETECTED AS BAD 
DATA IN THE BUFFER AFTER 
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A READ DATA OPERATION. WHEN THIS OPERATION IS REPORTED IT INDICATES 
THE ACTUAL READ DATA OPERATION COMPLETED WITH MO DETECTED ERRORS BUT 
THE DATA MAS WRONG* 

READ HEADER - READ HEADER FOR 40 HEADERS - READ HEADER FOR 40 HEADERS 
WITH HEADER COMPARE - HAVE THE SAME GENERAL LEANING AS THE READ DATA 
AND READ DATA WITH DATA COMPARE. MESSAGES HAVING THE OPERATION OF 
READ HEADER OR READ HEADER FOR 40 HEADERS ARE THE RESULT OF ERRORS 
DETECTED IN THE ACTUAL OPERATION WHILE THE READ HEADER FOR 40 HEADERS 
WITH HEADER COMPARE INDICATES NO ERROR IN THE ACTUAL OPERATION BUT THE 
HEADER DATA ITSELF MAS IN ERROR. 

WRITE DATA - RESET - GET STATUS - GET STATUS WITH RESET - ARE ALL 
BASIC OPERATIONS. AS BEFORE* THE ERROR DETECTION CAN BE EITHER 
HARDWARE OR SOFTWARE* THE RESULT LINE (LINE 5) WILL DEFINE THE REASON 
FOR THE REPORT. 

LD DRV - UNLD DRV - ARE OPERATION MESSAGES THAT WILL APPEAR IN THE 
REPORT WHEN THE DRIVE LOAD AND UNLOAD SEQUENCE IS BEING TESTED* 

ANOTHER GROUP OF OPERATION QUALIFIERS MILL BE REPORTED FOR OPERATIONS 
THAT FAIL IN SPECIFIC TESTS* THESE TESTS ARE THE WRITE/READ TEST PART 
2/ OVERWRITE TEST* AND THE ADJACENT CYLINDER INTERFERENCE TEST* 



OPERATION 



QUALIFIER 



READ DATA WITH DATA COMPARE 
READ DATA 
WRITE DATA 
READ HEADER 



FOL TO CC SEEK 

FOL 255 TO CC SEEK 

FOL WRITE {NO SEEK) 

ADJU CYL WRITTEN AFTER FWD SK 

ADJ. CYL WRITTEN AFTER REV SK 

SK FWD, WRT-SK REV/ OVERWRT 

SK REV # WRT-SK FWD^ OVERWRT 



THE ABOVE OPERATIONS CAM BE REPORTED WITH ANY OF THE QUALIFIERS* THE 
QUALIFIERS IN THESE TESTS ARE AN ATTEMPT TO MAKE THE REPORT MORE 
MEANINGFUL BY PROVIDING INFORMATION ABOUT THE SEQUENCE OF OPERATIONS 
BEING DONE* 

THE QUALIFIERS "FOL TO CC SEEK" AND "FOL 255 TO CC SEEK" INDICATE 
THAT THE SEQUENCE OF OPERATIONS INCLUDED A SEEK OF A GIVEN DIRECTION 
TO THE CYLINDER WHERE THE TEST IS BEING 



PERFORMED* 

THE "FOL WRITE (NO SEEK)" QUALIFIER HEANS THAT THE OPERATION WAS DONE 
AFTER A WRITE WITH NO HEAD MOVEMENT BETWEEN THE WRITE AND READ. 

THE QUALIFIER "ADJ CYL WRITTEN AFTER FWD SK" AND "AD J CYL WRITTEN 
AFTER REV SK" WILL BE REPORTED ONLY IN THE ADJACENT CYLINDER 
INTERFERENCE TEST* THESE QUALIFIERS ARE USED WHEN THE ERROR OCCURS ON 
THE CYLINDER UNDER TEST AND DEFINE THE DIRECTION THE HEADS WERE MOVED 
WHEN THE ADJACENT CYLINDER WAS WRITTEN. 
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THE QUALIFIERS 8S SIC PUD, WRT-SK RE?* OVERWRT" AND U SK REV* WRT-SK FiD* 
OVERWRT 51 WILL BE REPORTED ONLY IN THE OVERWRITE TEST. THESE 
QUALIFIERS DEFINE THE DIRECTION OF HEAD MOTION BEFORE THE INITIAL 
WRITE AMD THE OVERWRITE. 

THE QUALIFIER ^Oi BAD SEC FILES* 1 WILL BE REPORTED WITH THE WRITE DATA 
COMMAND IF THE PROGRAM ABORTS THAT COMMAND BECAUSE THE WRITE WOULD BE 
ON THE BAD SECTOR FILES. 

3*1.2 SPECIFIC RESULT MESSAGES 



THE RESULT MESSAGE (LINE 5) 

EXPECTED RESULT OF THE OPERATION BEING TESTED. 



IS GENERATED 



DYNAMICALLY BASED 01 THE 

_ _„_ _ _ ----- SINCE OPERATIONS ARE 

MONITORED DURING EXECUTION THE RESULT MESSAGE MAY REPORT AN ERROR 
DETECTED DURING THE OPERATION AS WELL AS THE ERRORS SEEN AT THE END OF 
THE OPERATION* ONLY THE FIRST ERROR SEEN IS REPORTED III ALL CASES* 



THE GENERAL FORMAT FOR THE RESULT LINE IS ~ 

RESULT S ( ¥AR 1) IS (VAR 2) SB (¥AR 3) (OPTIONAL QUALIFIER) 

WHERE VARIABLE 1 CAN BE ONE OF THE FOLLOWING? 



CONT ERR 

DRV ERR 

NON-EXSTNT MEM 
HDR CRC 

DATA CRC 
HDR NOT FND 

DATA LATE 

HDR NOT FND/HDR CRC/OPI 
DRV RDY 

SELECTED HEAD 
VOL CHK 
COVER OPEN 
BRUSH HME 

WRT LCK 

HDS OUT 
DRV SEL ERR 
DRV STATE 

SPIN TIMEOUT 
WRT GAT ERR 
SEEK TIMEOUT 
CUR HEAD ERR 
WRT DAT ERR 
OP INCOMPLETE 
HDR/DAT ERR 

HDR NOT FND/DAT LATE 

CYL 



(CONTROLLER ERROR) 
(DRIVE ERROR) 
(NON-EXISTANT MEMORY) 
(HEADER CRC ERROR) 

(HEADER NOT FOUND) 

(ALL 3 BITS SET) 

(DRIVE READY) 

(VOLUME CHECK) 

(BRUCH HOME) 
(WRITE LOCK) 

[HEADER OUT) 
DRIVE SELECT ERROR) 
DRIVE STATE) 

SPINDLE TIMEOUT SPD ERROR) 
WRITE GATE ERROR) 
SKTO ERROR) 

CURRENT IN HEAD ERROR) 
WRITE DATA ERROR) 
OP I ERROR) 

HEADER CRC OR DATA CRC ERROR 

BIT 11 OF CS REGISTER) 
(HEADER NOT FOUND OR DATA LATE 

ERROR BIT 12 OF CS REGISTER) 
(CYLINDER WHEN REPORTING A SEEK ERROR) 
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VARIABLE 2 WILL BE A VALUE THAT DEFINES WHAT THE RESULT ACTUALLY IS* 
THIS CAN BE A 1 OR TO INDICATE A SET OF RESULT CONDITIONS, A NUMBER 
TO 7 TO INDICATE THE DRIVE STATE, OR A NUMBER TO 377 (OCTAL) TO 
IDENTIFY A CYLINDER NUMBER. 

VARIABLE 3 DEFINES THAT THE VALUE GIVEN IS VARIABLE 2 SHOULD BE. 

THE OPTIONAL QUALIFIER IS PROVIDED WHEN IT IS USEFUL TO KNOW WHEN THE 
ERROR WAS DETECTED IN THE OPERATION BEING PERFORMED* THIS QUALIFIER 
IS USED TO REPORT RESULTS SUCH AS S 

BRUSH HME IS 1 SB IN STATE 2 

HEADS OUT IS SB 1 IN STATE 3 

DRV RDY IS SB 1 IN DATA XFER 

SELECTED HEAD IS 1 SB IN CYCLE UP 

DRV RDY IS SB 1 IN STATE 5 

DRV RDY IS 1 SB IN SEEK W/O MOTION 

DRV RDY IS SB 1 IN 10MS 

DRV RDY IS SB 1 IN 500MS 

DRV RDY IS SB 1 IN 5SECONDS 

THESE RESULTS/ WHEN SEEN WITH THE OPERATION MESSAGE^ WILL BE SELF 
EXPLANATORY- 

OTHER RESULT MESSAGES THAT CAN BE PART OF AN ERROR REPORT ARE S 

"INTERRUPT TO LATE 11 WHICH INDICATES THAT THE OPERATION BEING PERFORMED 
DID NOT COMPLETE IN THE EXPECTED AMOUNT OF TIME. THIS RESULT CAN BE 
CAUSED BY THE DRIVE LOOSING READY BEFORE STARTING A READ HEADER AND 
THEREFORE NOT COMPLETING THE READ HEADER IN IMS. 

"FAIL TO RELOAD HEADS AFTER ERR CLEAR" IS REPORTED WHEN AN ERROR 
CAUSES HEADS TO UNLOAD AND AFTER THE ERROR IS CLEARED THE HEADS DO NOT 
RELOAD * 

"UNKN DRV STATE-NO RDY, NO ERR, HDS OUT" IS REPORTED WHEN THE PROGRAM 
CANNOT DETERMINE THE DRIVE STATE OR STATUS* 

"WRITE ABORTED" IS REPORTED WHEN THE PROGRAM ABORTS A WRITE TO PROTECT 
THE BAD SECTOR FILES* 

"COULD NOT RETRIEVE DSIVE STATUS" IS REPORTED IF THE GET STATUS 
COMMAND DOES NOT COMPLETE SUCCESSFULLY WHEN THE STATUS IS REQUIRED TO 
REPORT AN ERROR. 

"OPI SET-NO DRIVE RESPONSE" IS REPORTED AS THE RESULT WHEN THE GET 
STATUS COMMAND IS TIMED OUT (OPI SETS) WHEN THAT COMMAND IS BEING USED 
IN THE EARLY TESTS TO CHECK THE DRIVE INTERFACE. 

"NO INTERRUPT ON CMND COMPLETE" IS REPORTED WHEN THE COMMAND 
SUCCESSFULLY COMPLETES BUT THE CONTROLLER HAS NOT GENERATED AN 
INTERRUPT. 
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"ERR DID MOf CLEAR" IS REPORTED IHEM THE RESET COMMAND DOES MOT CLEAR 
THE CONTROLLER ERRORS. THIS IS A COMTROLER RELATED PROBLEM BUT IS 
REPORTED IP SEEN IN THE DRIfE TEST PROGRAMS* 

"DRY ERR IS MOT CLEARED" IS REPORTED WHEN THE GET STATUS M/RESET 
COMMAND DOES NOT CLEAR ALL DRIfE ERRORS. 

"UNEXPECTED ERR" IS REPORTED MHEN THE CONTROLLER SENSES AN ERROR BUT 
NO ERROR BITS ARE SET. 

"BAD SEC FILE FMT ERR" IS REPORTED IF THE CONTENTS OF THE FILES DO NO 
CORRESPOND TO THE EXPECTED FORMAT. (REFER TO DEC STANDARD 144 FOR 
FORMAT SPECIFICS.) 

3.1.3 OTHER MESSAGES 

OTHER INFORMATION IS REPORTED UNDER fARIOOS CIRCUMSTANCES. THESE ARE: 

"BAD SEC FILES NOT STRD. ALL SEC ASSUMED GOOD." THIS MESSAGE IS 
PRINTED WHEN A PARTICULAR TEST REQUIRES THE BAD SECTOR FILES BUT THEY 
HAYE NOT BEEN STORED. THIS SITUATION MILL OCCUR IF THIS TEST IS 
STARTED OUT OF THE NORMAL PROGRAM SEQUENCE OR IF THE BAD SECTOR FILES 
COULD NOT BE READ. 

"ERROR LIMIT EXCEEDED-DMIT DROPPED" IS REPORTED (MITH THE UNIT NUMBER) 
MHEN MORE THAN THE 

SPECIFIED NUMBER OF ERRORS (DEFAULT 20) HAVE OCCURED IN ANY SINGLE 

PASS. 

MOST ERROR REPORTS HAfE THE FOLLOHING FORMAT. 

(1) PROG NAME ERR NUM TEST NUM SUBTEST MUM ERR PC 
(25 ROUTINE TRACE SEQ (IN SEQ CALLED) 

(ADDRESS) 

(ADDRESS) 

(ADDRESS) 
TEST DESCRIPTION 
OPERATION: 

RESULTS 

6} ADDRESS OF UNIT UNDER TEST 

7) RLCS RLDA RLBA RLMP CYL HD 

8) OP INIT 

9) OP DONE 

10) DRIfE STATUS 

11) HORD NUM IS CXXXXXX) SB (YYYYYY) 

12) TOTAL COMPARE ERRS: (ZZZ) OF (128) 

THE ONLY EXCEPTION TO THE ABQYE FORMAT IS PURE DATA COMPARE ERRORS 
(NOT DETECTED BY READ ERROR). THEN THE FORMAT DOES NOT INCLUDE LINES 
5 THROUGH 10. 
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LIME 1 IS THE ERROR HEADER AND IS PROflDED BY THE SUPERVISOR* THE 
PROGRAM IS IDENTIFIED BY MAME WITH THE NUMBER OF TEST AND SUBTEST 
PRESENTLY BEING EXECUTED. 

THE SUBTEST NUMBER IS UNIQUE IN THIS PROGRAM IN THAT IT DOES 

NOT REFER TO A PHYSICAL SUBTEST WITHIN A GIVEN TEST. RATHER IT 
REFLECTS THE NUMBER OF TIMES A SUBTEST HAS BEEN EXECUTED WITHIN A 
TEST* CONSEQUENTLY/ ON A TEST THAT TESTS AN INCREMENTAL TYPE OF 
OPERATION (SUCH A INCREMENTAL SEEKS* READ ALL HEADERS FROM BOTH 
SURFACES* ETC.) THE SUBTEST HILL BE DESCRIPTIVE OF WHERE IN THE TEST 
THE ERROR OCCURRED. 

THE ERROR P»C» IS THE PHYSICAL MEMORY LOCATIOM WHERE THE ERROR REPORT 
WAS INITIATED. SINCE MANY FUNCTIONS ARE SUBROUTINED, AND ERRORS ARE 
REPORTED FROM SUBROUTINES, THE ERROR P.C. IS MOT SUFFICIENT TO 
IDENTIFY THE LOCATION OF THE ERROR CALL AND THE ROUTINE TRACE SEQUENCE 
IS PROVIDED. 

LINE 2 IS THE ROUTINE TRACE SEQUENCE. IF THE ERROR CALL IS INITIATED 
FROM WITHIN THE TEST (AS OPPOSED TO WITHIN A ROUTINE), THIS PORTION OF 
THE REPORT IS OMITTED. IF THE CALL IS INITIATED FROM A ROUTINE (WHICH 
MAY BE CALLED BY ANOTHER ROUTINE, WHICH MAY BE CALLED BY ANOTHER 
ROUTINE, ETC. SEVERAL LEVELS DEEP) THE ROUTINE TRACE SEQUENCE 
PROVIDES A TRAIL TO THE ACTUAL LOCATION WITHIN THE TEST THAT CALLED 
THE FIRST ROUTINE. THE FIRST ENTRY LISTED IS THE LOCATION WHERE THE 
FIRST ROUTINE WAS CALLED. 

LINE 3 IS THE TEST DESCRIPTION AND IS ROUGHLY IDENTICAL TO THE NAME OF 
THE TEST BEING PERFORMED. 

LINE 4 IDENTIFIES THE ACTUAL HARDWARE FUNCTION THAT IS BEING 
PERFORMED. ADDITIONAL INFORMATION ON THIS LINE IS DESCRIPTIVE OF 
SPECIFIC USE OF THE FUNCTION • FOR EXAMPLE/ THE OPERATION LINE WILL 
READ "READ HEADERS FOR 40 HEADERS" WHEN ALL HEADERS ARE BEING READ 
FROM A TRACK. 

LINE 5 IDENTIFIES THE ERROR THAT HAS BEEN DETECTED. THE CONTENT OF 
LINE 5 IDENTIFIES WHAT WAS BENG TESTED (SUCH AS DRIVE READY* 
CONTROLLER ERROR/ DRIVE STATE, ETC.), WHAT IT IS AND WHAT IT SHOULD 
BE. LINE 5 MAY BE REPEATED IF MORE THAN ONE TESTED ITEM IS FOUND IN 
ERROR. 

IN ADDITION LINE 5 WILL REPORT ANY HARDWARE DETECTED ERRORS SUCH AS 
OPERATION INCOMPLETE^ HEADER CRC* ETC. IN THIS CASE THE FIRST LINE 
PRINTED AS RESULT WILL BE DETERMINED BY THE THREE ERROR BITS OPI, 
HNF/DLT* AND HCRC/DCRC. THE LINE WILL BE DETERMINED AS IN THE 
FOLLOWING TRUTH TABLE: 

HNF/DLT DCRC/HCRC OPI MESSAGE 

1 11 HDR NOT FND/HDR CRC/OPI ERROR 

11 HDR CRC ERROR 

1 1 HDR NOT FND ERROR 

1 DATA CRC ERROR 

1 DATA LATE ERROR 
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LIME 6 IDENTIFIES THE PHYSICAL ADDRESS OF THE WIT WIDER TEST. TilS 
ADDRESS IS BY UMIBUS ADDRESS OF THE CONTROLLER AMD DRIVE NUMBER. 

LIME 1 MIMES THE CO Iff ROLLER REGISTERS (AMD CYLIMDER AMD HEAD MHERE 
THESE IRE APPLICABLE II THE REPORT) TO BE REPORTED. 

LIME 8 PRO? IDES THE COST EiTES OF CQITRQLLER REGISTERS MHEM THE 
OPERATIOI MAS INITIATED. 

LIME 9 PROfTDES THE COiTEITS OF THE CONTROLLER REGISTERS VHEN THE 
ERROR BEING REPORTED WAS DETECTED. FREQUENTLY THE REGISTER CONTENTS 
OF OP HIT AND OP DONE MILL BE DIFFERENT. OP INIT MAY INDICATE A SEEK 
MAS BEING PERFORMED BUT OP DONE MAY INDICATE THE ERROR HAS DETECTED BY 
A READ HEADER. THE REASON IS THAT A SEEK MAS EXECUTED AND DID NOT 
PROPERLY POSITION HEADS AND MHEM THE READ HEADER MAS DONE THE HEADS 
MERE ON THE WRONG CYLINDER. 

LIME 10 IS THE DRIVE STATUS. THIS LINE IS ONLY REPORTED IF THE RLMP 
REGISTER DOES MOT CONTAIN THE ACTUAL DRIVE STATUS. _ 

LINE II AND LINE 12 ARE REPORTED IF THE ERROR WAS DETECTED AS A 
COMPARE OPERATION, EITHER DATA OR HEADERS. IN ADDITION^ GOOD AND BAD 
DATA IS REPORTED FOR ALL READ ERRORS. 

3.2 ERROR HALTS 

ERROR HALTS ARE SUPPORTED PER DESCRIBED IN THE PREVIOUS SECTION WITH 
/FLAGS HOE. THERE ARE NO OTHER HALTS. 

4.0 PERFORMANCE AND PROGRESS REPORTS 

4.1 PERFORMANCE REPORTS 

THIS PROGRAM WILL NOT GIVE ANY PERFORMANCE REPORTS. 

4.2 PROGRESS REPORTS 

THIS PROGRAM WILL NOT GIVE ANY PROGRESS REPORTS. 
5.0 DEVICE INFORMATION TABLES 

THE RLIl/RLVll CONTROLLER HAS THE FOLLOWING FOUR(4> REGISTERS FOR 
CONTROL OF THE SUBSYSTEM. 

RLCS - CONTROL AND STATUS REGISTER (XXXXXO) 



COMPOSITE ERROR 
DRIVE ERROR 

NOl EXISTANT MEMORY ERROR 
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BIT 12 - HEADER NOT FOUND (WITH BIT 10 SET) 

- DATA LATE (WITH BIT 10 CLEAR) 
BIT 11 - HEADER CRC (WITH BIT 10 SET) 

- DATA CRC (WITH BIT 10 CLEAR) 
BIT 10 - OPERATION INCOMPLETE 

BIT 9/8 - DRIVE SELECT (0-3) 

BIT 7 - CONTROLLER READY 

BIT 6 - INTERRUPT ENABLE 

BIT 5 - EXTENDED BUS ADDRESS (BIT 17) 

BIT 4 - EXTENDED BUS ADDRESS (BIT 16) 

BIT 3-1 - FUNCTION CODE 

- HOP (PDP-11) MAINT (LSI-11) 

1 - WRITE CHECK 

2 - GET DRIVE STATUS 

3 - SEEK 

4 - READ HEADER 

5 - WRITE DATA 

6 - READ DATA 

7 - READ WITHOUT HEADER COMPARE 
BIT - DRIVE READY 



RLBA - BUS ADDRESS REGISTER (XXXXX2) 



BITS 15-1 PUS ADDRESS OF DATA TRANSFER 
BIT SHOULD BE 

RLD A - DISK ADDRESS REGISTER (XXXXX4) 



FOR READ/WRITE FUNCTIONS 



BIT 15 - MUST 3E ZERO(O) 

BIT 14-7 - CYLINDER ADDRESS FOR TRANSFER 

BIT 6 - SURFACE FOR TRANSFER 

BIT 5-0 - SECTOR FOR TRANSFER (0-47) 

FOR SEEK FUNCTION 



BIT 15 - MUST BE ZERO(O) 

BIT 14-7 - DIFFERENCE TO NEW CYLINDER 

SIT 6-5 - MUST BE ZSRO(O) 

BIT 4 - SURFACE 

BIT 3 - MUST BE ZERO 

BIT 2 - SEEK DIRFCTION( 1 - IN / - OUT ) 

BIT 1 - MUST BE ZERO 
BIT - MUST BE CNS(l) 

FOR GET STATUS FUNCTION 
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BIT 15-4 - IGNORED SHOULD BE ZERO 
BIT 3 - DRIVE RESET 
BIT 2 - MUST BE ZERO 
BIT 1 - MUST BE OlE 
BIT - MUST BE OIE 

RLMP - MULTIPURPOSE REGISTER 
FOR READ/WRITE FU1CT101 

BIT 15 - - WORD COUNT(TWQ*S COMPLIMENT) 
FOR READ HEADER FUNCTION 

BIT 15-0 - DISK HEADER OF SECTOR (FIRST READ) 

- ZERO WORD (SECOND READ) 

- HEADER CRC (THIRD READ) 

FOR GET STATUS FUNCTION 



HAS DRIVE STATUS 

BIT 15 - WRITE DATA ERROR 

BIT 14 - CURRENT HEAD ERROR(CHE) 

BIT 13 - WRITE LOCK STATUS(WL) 

BIT 12 - SEEK TIME OUTCSKTO) 

BIT 11 - SPIN ERROR(SPE) 

BIT 10 - MRITE GATE ERRQR(WGE) 

BIT 9 - VOLUME CHECK(VC) 

BIT 8 - DRIVE SELECT ERROR(DSE) 

BIT 7 - RESERVED(O) 

BIT 6 - SURFACE 

BIT 5 - COVER OPEN 

BIT 4 - HEADS HOME 

BIT 3 - BRUSHES HOME 

BIT 2-0 -STATE BITS 

- LOAD STATE 

1 - SPIN UP 

2 - BRUSH CYCLE 

3 - LOAD HEADS 

4 - SEEK - TRACK COUNTING 

5 - SEEK - LINEAR MODE 

6 - UNLOAD HEADS 

7 - SPIN DOWN 



6.0 TEST SUMMARIES 

TEST 1 DIFFERENCE OF 1 SEEK TEST (PART 1) 

DO READ HEADER^ WAIT FOR INTERRUPT « STORE WORD 1 OF HEADER* 



Page 29 



SEQ 0029 



DO SEEK WITH DIFFERENCE OF I, HEAD 0* IF CYLINDER OF STORED 
HEADER WORD IS HOT 255 THEN SIGH BIT 1* ELSE SIGH BIT 0* WAIT 
FOR INTERRUPT* 

DO GET STATUS, WAIT FOR INTERRUPT. CHECK STATE IS 4. IF MOTS 

DRIVE COMMAND SHIFT REGISTER BAD 
DIFFEREHCE REGISTER DROPPED BIT 
STATE RON FAILED 

WAIT APPROX 5 MS. DO GET STATUS, WAIT FOR INTERRUPT. CHECK 
STATE IS 5* IF HOTS 

DIFFERENCE REGISTER HOT COUNTING 

COUNT PULSE NOT GENERATED (COUNT LOGIC) 

SEEK ROM FAILED 

FAILURE IN DC SERVO 

NO TACH FEEDBACK 

WAIT APPROX 5 MS LONGER. TEST DRIVE READY, IF SETS 

FAILURE IN READY LATCH OR INTEGRATOR 

WAIT APPROX 5 MS LONGER- TEST READY. IF RESETS 

FAILURE IN INTEGRATOR 
UNEXPECTED GUARD BAND DETECTED 

DO SEEK WITH DIFFERENCE 1, OPPOSITE SIGN, HEAD 0* REPEAT ALL 
TESTS AS ABOVE. 

REPEAT TEST USING HEAD 1. 

NOTES THIS TEST IS PERFORMED AT THE CYLINDER POSITION FOUND 
IN THE DRIVE WHEN THE TEST EXECUTES. CHOOSING A 
SINGLE SURFACE WILL LIMIT TESTING TO THAT SURFACE. 



TEST 2 DIFFERENCE OF 1 SEEK TEST (PART 2) 

DO READ HEADER, WAIT FOR INTERRUPT. STORE WORD 1 OF HEADER* 

DO SEEK WITH DIFFERENCE OF 1, HEAD 0. IF CYLINDER OF STORED 
HEADER WORD IS NOT 255 THEN SIGN BIT 1, ELSE SIGN BIT 0* WAIT 
FOR INTERRUPT, WAIT FOR DRIVE READY. 

DO READ HEADER, WAIT FOR INTERRUPT. COMPARE CYLINDER OF THIS 
HEADER WITH CYLINDER OF STORED HEADER FOR DIFFERENCE OF ONE. 

IF HOTS 

COUNT LOGIC BAD 
INTERGR ATOR FAILED 

CHECK THAT HEADS MOVED FORWARD OR REVERSE AS EXPECTED* IF 
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WOTS 

SEEK ROM FAILED 

DO SEEK WITH DIFFERENCE OF 1^ OPPOSITE SIGH, HEAD 0. REPEAT 
ALL TESTS AS ABOVE. 

REPEAT TEST USIIG IEAD 1. 

MOTES THIS TEST IS PERFORMED AT THE CYLINDER POSITION FOUND 

II THE DRIVE WHEN THE TEST EXECUTES. CHOOSING A 

SINGLE SURFACE MILL LIMIT TESTING TO THAT SURFACE. 

TEST 3 OUTER GUARD BAND DETECTION TEST 

DO READ HEADER, WAIT FOR INTERRUPT. CHECK IF AT CYLINDER 0. 
IF NOT, SEEK REVERSE 1 CYLINDER AT A TIME UNTIL CYLINDER IS 

REACHED. IF ANY REVERSE SEEK FAILS TO MOVE THE HEADS IN 10 
TRIES! 

DETECTION OF GUARD BAND PREMATURE. 

WHEN AT CYLINDER 0, DO SEEK DIFFERENCE OF l £ SIGN 0* HEAD 0. 
WAIT FOR INTERRUPT/ WAIT FOR READY. READY SHOULD SET IN 
20MS>T>15MS. IF NOT I 

FAILED TO DETECT GUARD BAND 

DO READ HEADER. WAIT FOR INTERRUPT. CHECK FOR CYLINDER 0. 
IF NOT 

FAILED TO SEEK BACK TO ZERO 

DO SEEK WITH DIFFERENCE OF I, SIGN Z HEAD 1. DO SAME TESTS 
AS ABOVE WITH REGARD TO READY ¥S TIME AND CYLINDER FOUND IN 

HEADER. 

NOTES CHOOSING A SINGLE SURFACE WILL LIMIT THE TESTING TO 
THAT SURFACE. 

TEST 4 INCREMENTAL FORWARD SEEK HEAD TEST 

POSITION HEADS AT CYLINDER "LOLIMIT** USING SEEKS WITH 
DIFFERENCE OF ONE* HEAD 0. 

DO SEEK WITH DIFFERENCE OF 1 £ SIGN 1* HEAD 0. WAIT FOR 
INTERRUPT, WAIT FOR DRIVE READY. CHECK READY IS SET IN 15 MS. 



IF NOT : 



POSITIONING PROBLEM AT A SPECIFIC CYLINDER 
MECHANICAL OBSTRUCTION 



DO READ HEADER* WAIT FOR INTERRUPT® CHECK THAT THIS CYLINDER 
IS OLD CYLIIfOER * 1. IF NOT: 
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DIFFERENCE REGISTER OR COUNT LOGIC FAILURE 
TRACK CROSSING DETECTION FAILURE 

REPEAT SEEKS AND READS UNTIL CYLINDER READ IS "HILIMIT". 

NOTE IS IF THE "USE ALL SECTORS" PARAMETER IS SPECIFIED AS 
"Y", THE TEST MILL READ AND TEST ALL 40 HEADERS 
(CARTRIDGE VERIFY) . 

NOTE 22 TESTING WILL BE DONE BETWEEN UPPER AND LOWER CYLINDER 
LIMITS, CHOOSING A SINGLE SURFACE WILL LIMIT TESTING 
TO THAT SURFACE* THIS TEST WILL BE BYPASSED IF 
SURFACE 1 IS CHOSEN* 

TEST 5 INCREMENTAL REVERSE SEEK HEAD TEST 

POSITION HEADS AT CYLINDER "HILIMIT" USING SEEKS WITH 
DIFFERENCE OF 1, HEAD 0. 

DO SEEK WITH DIFFERENCE OF 1, SIGN 0, HEAD 0. WAIT FOR 
INTERRUPT, WAIT FOR DRIVE READY* CHECK READY SET IN 15 MS: 

POSITIONING PROBLEM AT A SPECIFIC CYLINDER 
DO READ HEADER, WAIT FOR INTERRUPT. CHECK THAT THIS CYLINDER 
IS OLD CYLINDER - 1. IF NOT: 

DIFFERENCE REGISTER OR COUNT LOGIC FAILURE 
TRACK CROSSING DETECTION FAILURE 

REPEAT SEEK AND CHECKS UNTIL CYLINDER IS "LOL IMIT" » 

NOTE: IF THE "USE ALL SECTORS" PARAMETER IS SPECIFIED AS 
"Y", THE TEST WILL READ AND TEST ALL 40 HEADERS 
(CARTRIDGE VERIFY). 

NOTE 2 TESTING WILL BE DONE BETWEEN UPPER AND LOWER CYLINDER 
LIMITS. CHOOSING A SINGLE SURFACE WILL LIMIT TESTING 
TO THAT SURFACE. THIS TEST WILL BE BYPASSED IF 
SURFACE 1 IS CHOSEN. 

TEST 6 INCREMENTAL FORWARD SEEK HEAD 1 TEST 

POSITION HEADS AT CYLINDER "HILIMIT" USING SEEKS WITH 
DIFFERENCE OF ONE, HEAD 0. 

DO SEEK WITH DIFFERENCE OF 1, SIGN 1, HEAD 1. WAIT FOR 
INTERRUPT, WAIT FOR DRIVE READY. CHECK READY IS SET IN 15 MS. 

IF not: 

POSITIONING PROBLEM AT A SPECIFIC CYLINDER 

DO READ HEADER, WAIT FOR INTERRUPT. CHECK THAT THIS CYLINDER 
IS OLD CYLINDER + 1. IF NOT : 
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DIFFEREICE REGISTER OR COUNT LOGIC FAILURE 
TRACK CROSSING DETECTIOl FAILURE 

REPEAT SEEKS AID READS UNTIL CfLIIDER READ IS ^HILIMIf 

NOTE 11 IF THE "USE ALL SECTORS 88 PARAMETER IS SPECIFIED AS 
% 8S £ THE TEST MILL READ AID TEST ALL 4© HEADERS 
(CARTRIDGE fERIFY). 

MOTE 21 TESTING MILL BE DOIE BETiEEI UPPER AID LOVER CfLIIDER 
LIMITS* CHOOSING A SINGLE SURFACE MILL LIMIT TESTING 
TO THAT SURFACE. THIS TEST MILL BE BYPASSED IF 
SURFACE IS CHOSEN* 

TEST 7 INNER GUARD BAND DETECTION TEST 

POSITION HEADS IT CYLINDER 255 USING SEEK tflTH DIFFEREICE OF 
1, HEAD 0* 

MHEN IT CYLINDER 255 # DO SEEK WITH DIFFERENCE OF i € SIGN l f 
HEAD 0. MAIT FOR INTERRUPT* MA IT FOR DRIfE READY. READY 
SHOULD SET IN 20MS>T>15MS« IF MOT I 

FAILED TO DETECT GUARD BAND 

DO READ HEADER* MAIT FOR INTERRUPT® CHECK FOR CYLINDER 255* 
IF NOT 2 

FAILED TO SEEK BACK TO CYLINDER 255 

DO SEEK WITH DIFFERENCE OF 1, SIGN 1, HEAD 1* DO SAME TESTS 
AS ABOYE. 

MOTES CHOOSING A SINGLE SURFACE MILL LIMIT THE TESTING TO 
THAT SURFACE. 

TEST 8 INCREMENTAL REf ERSE SEEK HEAD I TEST 

POSITION HEADS AT CYLINDER ?8 HILIMIT 9$ USING SEEKS MITH 
DIFFERENCE OF I, HEAD 0. 

DO SEEK WITH DIFFERENCE OF 1 £ SIGN # HEAD 1. MAIT FOR 
INTERRUPT*, MAIT FOR DRIVE READY* CHECK READY SET IN 15 MSS 

POSITIONING PROBLEM AT A SPECIFIC CYLINDER 

DO READ HEADER. WAIT FOR INTERRUPT* CHECK THAT THIS CYLINDER 
IS OLD CYLINDER - 1* IF NOT t 

DIFFERENCE REGISTER OR COUNT LOGIC FAILURE 
TRACK CROSSING DETECTION FAILURE 

REPEAT SEEK AND CHECKS UNTIL CYLINDER IS ^LQLIHIT 98 * 



II* 0032 
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NOTE l: IF PROGRAM MODE 2 IS USED AND THE "USE ALL SECTORS" 

PARAMETER IS SPECIFIED AS "Y", THE TEST WILL READ AND 
TEST ALL 40 HEADERS (CARTRIDGE VERIFY ) • 

NOTE 2S TESTING MILL BE DONE BETWEEN UPPER AND LOWER CYLINDER 

LIMITS. CHOOSING A SINGLE SURFACE WILL LIMIT TESTING 

TO THAT SURFACE. THIS TEST WILL BE BYPASSED IF 
SURFACE IS CHOSEN. 



TEST 9 SEEK TESTS 



POSITION HEADS AT CYLINDER "LOLIMIT" USING SEEKS WITH 
DIFFERENCE OF 1, HEAD 0. 

DO READ HEADER, RECORD POSITION. DO SEEK WITH DIFFERENCE OF 2 
(MAX DISTANCE AT 3 IPS), SIGN 1, HEAD 0. DO READ HEADER, 
CHECK NEW CYLINDER IS OLD CYLINDER * DISTANCE. IF NOTS 

TRACK CROSSING DETECTION FAILURE 
DIFFERENCE COUNTER FAILURE 
COUNT PULSE GENERATION FAILURE 
VELOCITY ROM FAILURE 

REPEAT ABOVE UNTIL OLD CYLINDER ♦ DISTANCE > 255. POSITION AT 
255. 

DO RE AD HEADER, RECORD POSITION. DO SEEK WITH DIFFERENCE OF 2 
(MAX DISTANCE AT 3 IPS), SIGN 0, HEAD 0. DO READ HEADER, 
CHECK MEW CYLINDER IS OLD CYLINDER - DISTANCE. IF NOTS 

TRACK CROSSING DETECTION FAILURE 

REPEAT UNTIL OLD CYLINDER - DISTANCE < 0. REPEAT ALL OF THE 
ABOVE USING HEAD I* 

REPEAT ALL OF THE ABOVE TESTS USING THE FOLLOWING DISTANCES: 
b, 9, 12, 17, 22, 27, 34, 41, 128, 256. THESE DISTANCES ARE 
SPECIFIED BECAUSE THEY REPRESENT THE MAXIMUM DISTANCE FOR EACH 
VELOCITY LEVEL USED IN THE DRIVE. 

NOTE : TESTING WILL BE DONE BETWEEN UPPER AND LOWER CYLINDER 
LIMITS. CHOOSING A SINGLE SURFACE WILL LIMIT TESTING 
TO WAT SURFACE. 

TEST 10 FORWARD OSCILLATING SEEK TEST 

POSITION HEADS AT CYLINDER 0. 

DO OSCILLATING SEEK USING HEAD (SEEK FROM TO 1 TO 0, TO 
2 TO 0# TO 3 TO 0, .....0 TO 255 TO 0). AFTER EACH SEEK 
READ HEADER AND VERIFY POSITION. 

REPEAT TEST USING HEAD 1. 
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MOT El IF EITHER CYLINDER LIMIT IS SPECIFIED* THE TEST WILL 

FIIED C DiSTlicE E SEli 4 LQ0p 00PIiiG ° W TESf THEN PR O^IDES A 
TEST 11 REVERSE OSCILLATING SEEK TEST 

POSITIOM HEADS AT CYLINDER 255* DO OSCILLATING SEEK USING 
HEAD 0* (SEEK FROM 255 TO 254 TO 255 £ 255 TO 253 TO 

vlifFY*POSITI01° T ° 255,8 * iFTER EACH SE£K « EID HEADER AND 
REPEAT TEST USING HEAD 1* 

N0TE: II E I I lI?wlIls l e D pilR L I^ T L^ E i p L E i^lI D foI H lAcri§ RF «i!: 

CHOOSING A SIHGLE SURFACE tfILL LIMIT TESTIiG TO THAT 
SURFACE, NOTE THAT LOOPIIG OH "TEST THEN PRQflDES A 
FIXED DISTANCE SEEK LOOP. 

TEST 12 SEEK TIM IMG 

POSITION HEADS AT CYLINDER 0* 

DO 64 SEEKS FROM TO 1 AMD 1 TO Q f HEASURING THE SEEK TIME 
FOR EACH SEEK. AVERAGE THE SEEK TIMES (FOR HARD AND REVERSE 
INDEPENDENTLY) AMD REPORT. 

REPEAT ABOVE SEEKING BETiEEM CYLINDER 127 TO 128 AMD 254 TO 
255. 

REPEAT ABOVE. SEEKING BETWEEN CYLINDER TO 127 AMD 128 TO 256* 

REPEAT ABOVE SEEKING BETWEEN CYLINDER AMD 255. 

THE SEEK TIMES WILL BE REPORTED AS SHOW BELOW* THE TIME 
MEASURED IS FROM START OF SEEK COMMAND UNTIL IITERRUPT IS 
RECEIVED. 



INNER MIDDLE OUTER EXPECTED 

:yl fmd x x x x 

:yl rev xxx x 

* CYL FWD X XX 
CYL REV X X 
CYL FWD ' X 



X 



CYL REV X X 

THE X INDICATES WHERE TIME MILL BE REPORTED* 

MOTES THE ABOVE REPORT WILL BE PRINTED IN THE FIRST PASS FOR 
EACH DRIVE UNDER TEST IF MANUAL INTERVENTION TESTS 
WERE RUN* THE EXPECTED TIMES ARE FOR USER COMPARISON 
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ONLY. THE PROGRAM MILL NOT REPORT DEVIATION AS AN 
ERROR. 

TEST 13 BASIC READ DATA TEST 

POSITION HEADS AT CYLINDER 255. 

DO READ DATA, HEAD 1. CHECK FOR ANY ERRORS AND REPORT. IF 
ERROR, READ SECTOR 1 THROUGH 19 UNTIL NO ERROR ON READ. 
REPORT ALL ERRORS BUT DO NOT INCREMENT ERROR COUNT. IF NONE 
CAM BE READ, SUCCESSFULLY, REPORT THAT FACTORY BAD SECTOR FILE 
CANNOT BE READ, INCREHENT ERROR COUNT AND PROCEED WITH READ OF 
SECTOR 20. 

ON SECTOR WITH NO CRC ERROR, VERIFY DATA FORMAT (WORD AND 1 
ARE NOT 0, WORD 2 AND 3 ARE 0< LOCATE FIRST WORD OF ALL ONE "S 
AND THAT WORD TO WORD 127 ARE ALL ONE'S.) STORE BAD SECTOR 
DATA* 

READ DATA, HEAD ONE, SECTOR 20. CHECK FOR ANY ERRORS AND 

REPORT. IF ERROR, READ SECTOR 21 THROUGH 39 UNTIL NO ERROR ON 
READ. REPORT ALL ERRORS BUT DO NOT INCREMENT ERROR COUNT. IF 
NONE CAN BE READ SUCCESSFULLY, REPORT THAT SOFTWARE BAD SECTOR 
FILES CANNOT BE READ, INCREMENT ERROR COUNT AND EXIT TEST. 

ON SECTOR WITH NO CRC ERROR, VERIFY DATA AS ABOVE. STORE BAD 
SECTOR DATA. 

NOTES IF SURFACE IS SELECTED THIS TEST WILL BE BYPASSED. 
TEST 14 WRITE/READ DATA TEST (PART 1) 
POSITION HEADS AT CYLINDER 

WRITE PATTERN 1 ON HEAD 0, SECTOR 0. CHECK FOR ANY ERROR. 
READ HEAD 0, SECTOR 0. CHECK FOR CRC ERROR. COMPARE DATA. 
REPEAT FOR OTHER DATA PATTERNS (2 THROUGH 8). 

CHECK IF CYLINDER 0, TRACK 1, SECTOR IS LISTED IN BAD SECTOR 
DATA. IF NOT, REPEAT ABOVE TEST AT CYLINDER 0, TRACK 1, 
SECTOR 0. IF IT IS LISTED AS BAD, LOCATE FIRST SECTOR 0, 
TRACK 1 THAT IS GOOD AND DO ABOVE TESTS. 

NOTE: CYLINDER LIMITS ARE IGNORED, TESTING IS DONE AT 
CYLINDER 0. HOWEVER, CHOOSING A SINGLE SURFACE WILL 
LI^IT TESTING TO THAT SURFACE. 

TEST 15 SPINDLE TIMING TEST 

POSITION HEADS TO CYLINDER 0. 
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IMTERRUpf DifA 10 C¥LIS0ER 0# HEMS 0# SECTOR S» HIT FOR 

5151? ?ii T TfSE T ^PBRT E § E ?i R lM T !Bo* T sTR G giPRoI^88 L Di. mfmm 

- 0TEJ IF HANUAL^INtIrI IrTIDR f EST S M MERE ¥ R0i. ™ E " RST ° >LT 

TEST 16 IfRITE/READ TEST CPARf 2) 

CC IS CORREMT CYLINDER SELECTED FROM SET* 

LET SELECTED CYLINDER SET BE IS DEFIIED II PARAGRAPH 4*3. 

SEEK FORWARD TO CC. WRITE PAffEiiS I THROUGH 8 REPUTED 5 
TIMES 01 HEM) 0» READ/COMPARE ILL DATA* 

SEE* §I?5 RSE SEEK^^FOrSI RD I^h!^? " "sIS* REfflRSE^TO^CC. 

READ/COMPARE ILL DATA* REMRITE DATA PATTERIS 1 THROUGH 8 
REPEATED 5 TIMES 01 HEAD 0. READ COMPARE ALL DATA* 

SEEK FORWARD TO ^HILIMIT 81 ® SEEK REfERSE TO CC. READ/CQUPIRE 
ALL DATA* SEEK REfERSE TO "LOLIM! m * SEEK FORiARD TO CC* 
READ/COMPARE ILL DATA* 

REPEAT IBOfE TEST FOR HEAD 1. 

REPEAT IBOfE TESTS FOR ALL Cf LIMBERS li SELECTED CfLIiDE! SET. 

H0TE 11 are ListiFi II E B fIf RZt'SeHSr ^E^tHUS!" SET 

MOTE 21 IF THE 8 ®USE ALL CILIIDERS 8 ® PARAMETER IS SPECIFIED AS 
m y ii THE TEST MILL IMCLUDE ILL CYLIIPERS li THE 
SELECTED PARAMETER SET* 

II THE FIRST PASS OF THE PROGRAM THIS TEST IS 

cyliidIr s°e?. Q ff!isE 6 osfD Alt U L miT siPBrR T ?§ 

THE TABLE* 01 THE SECOID AID SUBSEQUENT PASSES ALL 
ESTRIES IM THE SELECTED CYLIMBER SET ARE USED. 

MOTE 41 TESTIIG MILL BE DOME BETMEEM UPPER AID LOiER LIMITS* 
CYLINDERS li THE CYLIIDER SET BEYOiD THESE LIMITS MILL 
MOT BE TESTED* CHQQSIIG I SliCLE SURFACE MILL LIMIT 
TESTIiG TO THAT SURFACE® 

TEST 17 MRITE LOCK ERROR AMD DATA PROTECTION TEST 



MOTE 31 II TH 



Page 37 



SEQ 0037 



DO WRITE DATA PATTERN AT SECTOR 0* READ DATA AND VERIFY. 

ASK OPERATOR TO WRITE LOCK DRIVE* DO GET STATUS LOOP UNTIL 
WRITE LOCK IS SET* IF NOT SET IN 30 SECONDS, ABORT THE TEST* 

WHEN SPRITE LOCK IS SET, DO WRITE DATA PATTERN 1 AT SECTOR 0. 
REPORT FAILURE IF DRIVE ERROR DOES NOT SET OR IF ANY OTHER 
ERROR SETS . CLEAR ERROR AND READ DATA AT SECTOR 0. CHECK 

THAT DATA HAS NOT BEEN DISTURBED* 

REQUEST OPERATOR TO RESET WRITE LOCK. DO GET STATUS LOOP 
UNTIL WRITE LOCK IS RESET . IF NOT RESET IN 30 SECONDS, REPEAT 
THE REQUEST. 

NOTES THIS TEST TS EXECUTED ONLY IF THE PROGRAM OPERATION 
MODE 2 IS SELECTED, MANUAL INTERVENTION TESTING IS 
REQUESTED, AND IS RUN IN FIRST PASS ONLY » 

TEST 18 ADJACENT CYLINDER INTERFERENCE TEST 

CC IS CURRENT CYLINDER SELECTED FROM SET 

LET SELECTED CYLINDER SET BE AS DEFINED IN PARAGRAPH 4»3. 
DATA PATTERN IS 155555. 

SEEK FORWARD TO CYLINDER CC. WRITE PATTERN ON TRACK 0, ALL 
SECTORS. READ/COMPARE DATA. 

SEEK FORWARD TO "HILIMIT". SEEK REVERSE TO CC-1. WRITE 
PATTERN. SEEK FORWARD TO "HILIMIT". SEEK REVERSE TO CC* 
WRITE PATTERN. (THIS HAS BRACKETED ORIGINAL WRITE WITH WRITES 
IN ADJACENT CYLINDERS. NOTE ADJACENT CYLINDERS WERE WRITTEN 
AFTER HEADS CAME ON CYLINDER IN REVERSE DIRECTION WHICH IS 
OPPOSITE OF CENTER CYLINDER.) 

SEEK REVERSE TO S, L0LIMIT". SEEK FORWARD TO CC. READ/COMPARE 
DATA FROM ALL SECTORS. ANY ERRORS (READ OR COHPARE) ARE 
ATTRIBUTED TO ADJACENT CYLINDER INTERFERENCE. 

SEEK FORWARD TO "HILIMIT". SEEK REVERSE TO CC. WRITE DATA 
PATTERN. SEEK REVERSE TO "LOLIMIT". SEEK FORWARD TO CC-1, 
WRITE PATTERN. SEEK REVERSE TO "LOLIMIT", SEEK FORWARD TO 
CC+1, WRITE PATTERN. SEEK FORWARD TO "HILIMIT", SEEK REVERSE 
TO CC. READ/COMPARE DATA IN ALL SECTORS. ANY ERRORS (READ OR 
COMPARE) ARE ATTRIBUTED TO ADJACENT CYLINDER INTERFERENCE. 

REPEAT ABOVE TESTS ON HEAD 1. 

NOTE 1? IF ANY SECTOR ON A SELECTED CYLINDER IS LISTED BAD, 
THAT SECTOR WILL BE BYPASSED. 

NOTE ?: IF THE "USE ALL CYLINDERS" PARAMETER IS SPECIFIED AS 
"Y", THE TEST WILL INCLUDE ALL CYLINDERS (EXCEPT AND 
255) IN THE SELECTED PARAMETER SET. 
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MOTE 31 II THE FIRST PISS OF THE 
EXECUTED 01 OlLf 3 OF THE 
CYLINDER SET* THOSE 
TMENTYFIRST, AID Ff — 
SEC01D AMD SOB SEQVBL 
ENTRY HILL BE TESTED 



PROGRAM 

CJLIMfftS LIST 

%m am 



THIS TEST 
StED ,| 



IS 

t|e 



RS 



Of 
ET 



SE 



NOTE 4: TESTING MILL 

Cf LI1DERS li _ 

MOT BE TESTED. CHOOSING A SINGLE SURFACE 
TESTING TO THAT SURFACE. 



IE DOME BETMEEM UPPEL 

f HE CYLINDER SET SIYOI 



ft"l«H l Ei.iM ll H& 

MILL LIMIT 



TEST 19 OVERWRITE TEST 



CC IS CURRENT CYLINDER SELECTED FROM SET 
SELECTED CYLINDER SET DEFINED IN PARAGRAPH 4.3. 

PATTERN A = 125252 



PATTERN B 



>0000 



SEEK FORWARD TO CC. MRITE DATA OF PATTERN A IN ALL SECTORS, 
HEAD 0. READ/COMPARE DATA. 

SEEK FORWARD TO "HILIMIT", SEEK REVERSE TO CC. MRITE PATTERN 
B. SEEK REVERSE TO "LOLINIT", SEEK FORMARD TO CC, 
READ/COMPARE DATA. 

SEEK FORMARD TO "HILIMIT", SEEK REVERSE TO CC. MRITE DATA 
PATTERN A. READ/COMPARE DATA. SEEK REVERSE TO ^LOLIMIT® 1 , 
SEEK FORMARD TO CC. MRITE PATTERN B. SEEK FORMARD TO 
"HILIMIT** SEEK REVERSE TO CC. READ/COMPARE DATA. 



AMY FAILURES (READ OR COMPARE) 
PROBLEM* 

REPEAT ABOVE TESTS ON HEAD 1. 



ARE ATTRIBUTED TO OVERWRITE 



NOTE II IF ANY SECTOR ON A SELECTED CYLINDER IS LISTED AS BAD, 
THAT SECTOR MILL BE BYPASSED. 

MOTE 7% IF THE fB USE ALL CYLINDERS 91 PARAMETER IS SPECIFIED AS 
W Y H , THE TEST MILL INCLUDE ALL CYLINDERS II THE 
SELECTED PARAMETER SET. 

MOTE 31 IN THE FIRST PASS OF THE PROGRAM THIS TEST IS 
EXECUTED ON ONLY 3 OF THE CYLINDERS LISTED IN THE 
CYLINDER SET. THOSE USED MILL BE THE FIRST, 
TWENTYFIRST, AID FORTYFIRST ENTRIES IN THE TABLE. 01 
SECOND AND SUBSEQUENT PASSES EVERY FOURTH CYLINDER SET 
ENTRY MILL BE TESTED. 

HOTE 4t TESTING MILL BE DONE BETMEEN UPPER AND LOMER LIMITS. 

CYLINDERS IN THE CYLINDER SET BEYOND THESE LIMITS MILL 
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♦♦SEEK TESTS 

♦•FORWARD OSCILLATING SEEK 
♦♦REVERSE OSCILLATING SEEK 
♦•SEEK TIMING 

♦♦BASIC READ DATA (BAD SECTOR FILE) 
♦♦WRITE/READ DATA (PART 1) 
♦♦SPINDLE TIMING TEST 
♦♦WRITE/READ DATA (PART 2) 
••WRITE LOCK ERROR AND DATA PROTECTION 
♦•ADJACENT CYLINDER INTERFERENCE 
-•OVERWRITE 



LOW CORE SET UP 
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, 1 

2 
3 
5 

7 
3 
o 

10 
11 
12 
13 
14 
19 
(4) 
£ 4) 
( 4) 
( 4) 
I 4) 
I 6) 
{6) 
( 

( 4) 
(4) 
( 4) 
< 4) 
(4) 
I 4) 
I 4) 
( 4) 
( 4) 
(4) 
( 4 ) 
(4) 
(4) 
( 4 ) 

\'-\ 

4) 



002000 



002000 

002000 
002000 
002000 
002001 
002002 
002003 
002004 
002005 
002006 
002007 
002010 
002011 
002012 
002014 
02016 
002020 
002022 
002024 
002026 
002030 
2 3 2 
002034 
020j6 
On?o<iO 
002042 
002044 
002046 
020^0 
002051 
002052 
002054 
02 0^ 
02 06 
002062 
C0*0t 4 
02 Of; 6 
002070 
002072 
002074 
00207r" 
002100 
02102 
002104 
021 06 



000001 
000001 
000001 
000000 
000000 



103 
132 

122 
114 
104 
000 
000 
000 
102 
060 
000000 
000300 
037604 
037730 
013356 
013372 
040514 
000000 
000000 
000000 
000000 
013410 
000000 
000000 
000000 
002 
002 
030000 
030000 
000000 
000000 
000000 
002114 
000000 
002112 
002112 
000000 
014564 
000014 
000000 
013456 
014444 



. ML I ST CND,MD,ME 
. ENABL ABS, AMA 
.=2000 

SVC 

SVCTST=1 
SVCSUB=1 
SVCBGL=1 
SVCINS=0 
SVCTAG=0 

POINTER BGNSW,BGNSFT,BGNDU 



BGNMOD MDHEDR 
HEADER CZRLD/E 
.ASCII 
. ASCII 
. ASCII 
.ASCII 
. ASCI I 
. BYTE 
.BYTE 
.BYTE 
.ASCII 
.ASCII 
.WORD 
. WORD 
.WORD 
. WORD 
. WORD 
.WORD 
.WORD 
. WORD 
.WORD 
.WORD 
. WORD 
.WORD 
. WORD 
.WORD 
. WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 
.WORD 
. WORD 
. WORD 
. WORD 
. WORD 
.WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
.WORD 



, 0,30000, 30000, 300, RL01 

/C/ 

/!/ 

',1', 
'V 




/B / 
/0/ 



30C 



L$ DISPATCH 





CSREVISION 

C5EDIT 

30000 

30000 





LSDVTYP 


L$DR 
LSDRST 

L° r 



LSINIT 
LSCLEAN 
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SFQ 0042 



a 
'8 

>i 

s 

27 

30 
31 
32 



35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 

n 

53 
54 
55 
56 
57 
58 
59 
60 

ti 

63 
64 
65 
66 
67 
68 
69 
70 
71 
72 



002110 
002110 
002110 
002112 
002114 
002114 



002122 
002122 



000000 
000001 



046122 
002122 



000000 
000002 
000004 
000006 
000010 



000000 
000002 
000004 
000006 
000010 
000012 



000001 
000002 
000004 
000010 
000020 
010000 
020000 
040000 
100000 



000 



DEVREG 
. WORD 
. BLKW 

DEVTYP <RL01> 
. ASCIZ / R L 1 / 
.EVEN 

/COPYRIGHT (C ) 1977, 1978 

;THIS SOFTWARE IS FURNISHED UNDER LICENSE FOR USE ONLY 
;ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH 
;THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE . THIS 
; SOFTWARE* OR ANY COPIES THEREOF, MAY NOT BE PROVIDED 
;OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON EXCEPT 
;FOR USE ON SUCH SYSTEM* AND TO ONE WHO AGREES TO THESE 
/LICENSE TERMS. TITLE TO OWNERSHIP OF THE SOFTWARE SHALL 
;AT ALL TIMES REMAIN IN DEC. 

; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 

; WITHOUT NOTICE AND SHALL NOT BE CONSTRUED AS A COMMITMENT 

;BY DIGITAL EQUIPMENT CORPORATION. 

;DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY 
;OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED PY DEC. 



BGNMOD GLBEQAT 



EQUALS 

6sr 

VECT 
PRIOR 
DRSB 
CNT 

MISWI 

LOLIM 
HI LI M 
HEAD 

ERLIM 
DCLIM 

allcyl 

ALLSEC 

DRSELT 

HD ALIGN 

AUTOSZ 

HEADLM 

HICYL 

LOCYL 

MITEST 

6KDATA 



OFFSETS FOR HARDWARE P-T ABLE 



= 
= 2 
= 4 
= 6 
= 10 



;BUS ADDRESS 
IVECTOR ADDRESS 
^PRIORITY 
;DRIVE SELECT PIT 
/CONTROLLER TYPE 



OFFSET FOR SOFTWARE P-T ABLE 

=0 /SOFTWARE PARAMETERS SWITCHES 

=2 /CYLINDER LOWER LIMIT 

=4 /CYLINDER HIGH LIMIT 

=6 /SELECTED HEAD FOR RUNNING TESTS 

=10 ;error LIMIT 

=12 ; D ATA COMPARE ERROR LIMIT 

BIT ASSIGNMENT FOR SOFTWARE P-TABLE SWITCHES 



BITOO 
=BIT01 
=BIT02 
=BIT03 
=BIT04 
=BIT12 
=BIT13 
=BIT14 
=BIT15 

SUBSYSTEM FUNCTIONS 
= 102 



;USE ALL CYLINDERS 
;USE ALL SECTORS 
/EXECUTE DRIVE SELECT TEST 
;EXECUTE HEAD ALIGNMENT TEST 
; AUTO SIZE FCP DRIVE-DROP IF NC RESPONSE 
/HEAD LIMIT SPECIFIED FLAG 
/HI LIMIT SPECIFIED FLAG 
;LO LIMIT SPECIFIED 

JEXECUTE MANUAL INTERVENTION TFSTS 



;WRITE CHECK 
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SEQ 0043 



73 
74 
75 
76 
77 
78 
79 
80 



P3 

II 

86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 

111 

123 
124 
125 
126 
127 
128 



000104 
000106 
000110 
000112 
000114 
000116 
000100 



007777 

000002 

mm 

000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 
003760 



000001 
000002 
000004 
000010 

000000 
000002 
000004 
000006 



000000 
100000 
040000 
020000 
010000 
010000 
004000 
004000 
002000 
001400 
000200 
000100 
000060 
000001 



GTSTAT 

SEEK 

RDHEAD 

WTDATA 

RDDATA 

RDNOHR 

NOOP 

COMPOP 

HDRCMP 

DATACMP 

CYLUP 

ULOAD 

INOUTS 

OUTINS 

FOLWRT 

REVSKS 

FWDSKS 

REVSKO 

FWDSKO 

BADADD 

SEEKOP 

RORWOP 

RELDWT 

HDR40 

MQUALS 



= 104 
= 106 
= 110 
= 112 
= 114 
= 116 
= 100 



f OSLOW 
NOIRPT 
CONHNG 
NOCLP 

RLCS 
RLBA 
RLDA 
RLMP 

&LCSR 

ANYERR 

DRVERR 

NXMERR 

DLTERR 

HNFERR 

DCKERR 

HCRCERR 

OP I ERR 

DSMSK 

CRDYMSK 

INTERL 

PAMSK 

DR'DYMSK 



;CET STATUS 

/SEEK 

/READ HEADER 
/WRITE DATA 
/READ DATA 

/READ DATA, IGNORE HEADERS 
;NO OPERATION 



OPERATION FLAGS 



7 

BIT01 

mm 

=BIT03 
=BIT04 
=BIT05 
=BIT06 
=BIT07 
=BIT0B 
=BIT09 
=BIT10 
=BIT11 
=BIT12 
=BIT13 
=BIT14 
=BIT15 



JCOMPOSITE OPFPATICN FLAGS 
; HEADER COMPARE OPERATION 
;DATA COMPARE OPERATION 



;CYCL£ UP OPERATION 
/UNLOAD OPERATION 
; IN- OUT SEEK OPERATION 
/OUT-IN SEEK OPERATION 
^FOLLOWING WRITE OPERATION 
;REV SEEK SEQ (ADJ INTERFERENCE) 
;FWD SEEK SEQ (ADJ INTERFERENCE) 
;REV SEEK SEQ (OVERWRITE) 
;FWD SEEK SEQ (OVERWRITE) 
?BAD DISK ADDRESS 
/SEEK OPERATION 
/READ OR WRITE OPERATION 
/RELOAD WAIT 
Hiin ,40 HEADER OPERATION 

OUTINS! I NOUTS ! FOLWRT ! REVSKS t FWDSKS! REVSKO! FWDSKO 
MESSAGE QUALIFIER BITS 



ERROR FLAGS FROM SUBROUTINES 

= BIT00 OPERATION TCOK TO LONG 

=BIT01 /NO INTERRUPT FROM OPERATION 

=BIT02 /CONTROLLER HUNG 

=BIT03 ;BAD CONTROLLER CLEAR 

=0 ;CONTRCL AND STATUS REGISTER 

=2 ;BUS ADDRESS REGISTER 

=4 ;DISK ADDRESS REGISTER 

=6 ;MULTI-PURPOSE REGISTER 

REGISTER BIT DEFINITIONS - CONTROL STATUS REGISTER 

=0 /CONTROL AND STATUS REGISTER 

=100000 /ANY ERROR BIT 

=40000 ;DRIVE ERROR BIT 

= 20000 ; NON-EX I ST ANT MEMORY ERROR 

=10000 /DATA LATE EFPCP 

=10000 /HEADER NOT FOUND ERROR 

=4000 /DATA CHECK ERROR 

= 4000 ; H EA DZR CHECK ERROR 

=2000 /OPERATION INCOMPLETE ERPOP 

=1400 ;DRIVE SELECT MASK 

=200 /CONTROLLER READY MASK 

=100 ; INTERRUPT ENABLE MASK 

=60 ;PUS ADDRESS UPPER MASK 

= 1 ; D R I V E READY MASK 



88313? 



883} 

0021 



0021 
0021 
0021 

881 



0021 
0021 
0021 
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SEQ 0044 



I! 



lira 



doooo 



i? 88 5 °8 



0000 
5002 
005032 
004744 
004765 
005016 
004752 
005127 
-050-' 

050 
00520 . 
005173 



_6 
30 

"'1 

6 
40 

4" 

t 

50 

52 005235 



m mm 

146 005204 




dbmxtiois 



definitions 



sniss tm data xfes 
IoIeIs mask 



DISK ADDRESS FOR SEEK 



E1CI MASK 
|OR GET STATUS 



DEFINITIONS -MP 



DEFINITIONS - 



STAMSK 

fCSTAf 
WGEST AT 

mm 

WLST* 

HCES 
WDES 

ENDMOD 
BGNMOD 



=10© 

REGISTER Bit 



DEFINITIONS 



- HP POt 81 

— HP ' 



JPER 
Range MASK 



|D READER 



MASK 



MP POI GET STATUS 

MASK 

iMB STATUS 



ill! 



; Bills ss 



STATUS 



1 1 i 

STAT =10 



iDfijfi ssli?f IrIqI _ 

; VOLUME CHECK STATUS 
;HRITE |ATE ERROR STATOS 

STATUS 

;WRITE LOCK STATUS 

SHEAD CURRENT ERROR STATUS 

JWRITE DATA ERROR STATUS 



GLBDAT 

TABLE 

• WORD 
.WORD 

• WORD 

• WORD 

• WORD 

• WORD 

• WORD 

• WORD 
.WORD 

• WORD 

• WORD 

• WORD 

• WORD 



OF OPERATION MESSAGES 

jfiller 



MWRCHK 

MGTSTA 

MSEEK 

MREADH 

MWRITE 

MREAD 

HWRSET 

MDATCP 

MHDRCP 

MCYLUP 

MULOAD 

MINOUT 



MESSAGE FOR WRITE CHECK 
GET STATUS 



SEEK 

READ HEADER 
WRITE DATA 
READ DATA 
WITH RESET 
WITH DATA COMPARE 
WITH HEADER COMPARE 
LOAD HEADS 
UNLOAD HEADS 
IN-OUT SEQ 
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181 

187 




194 
195 
196 

i?~ 



... nmt 

197 002200 

198 002202 

199 002204 

200 002206 
002210 
002212 



201 
202 

n 



... ... i 

205 002220 

206 002222 




002260 

227 002262 

228 002264 

229 002266 

230 002270 

231 002272 



002274 
002276 
002300 

002302 



002304 00000 

002306 00000 



Wl 883315 



000000 
000000 

88;::; 

000000 
000000 
000000 
000000 
000000 
000000 

0000 
0000.. 
000011 

000014 



SEq 



• WORD 

• WORD 

• WORD 
.WORD 

• WORD 

• WORD 

• WORD 
. WORD 

5 TABLE 
RESTBL: .WORD 

• WORD 

• WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 



^ATTBL: 



MOUTIN 
MFOLWRT 
MREVSK 
MFWDSK 

MRESKO 
MFWSKO 

MBADAD 
M40HDR 

OF RESULT NAME 

MCERR 

MDRERR 

MNEERR 

MFLERR 

MHDERR 

MOPERR 

MNDRST 



MWDERR 

MHCERR 


MSTERR 
MSPERR 
MWGERR 


MDSERR 



OUT-IH SEQ 
FOLLOWING WRITE 
REV SEEK 
FWD SEEK 
REV SEEK 
r WD SEEK 



BAD DISK ADD FOR WRITE 
40 HEADER OPERATION 



MESSAGE ADDRESSES 
CONTROLLER ERROR 
;DRIVE ERROR 

;NON-EXISTANT MEMORY ERROR 
{HEADER NOT FOUND-DATA LATE 
;HEADER OR DATA ERROR 
;OPERATION INCOMPLETE 
;NQ DRIVE STATUS AVAILABLE 

;WRITE DATA ERROR 
;HEAD CURRENT ERROR 

;SEEK TIMEOUT ERROR 
;SPINDLE ERROR 
;WRITE GATE ERROR 

;DRIVE SELECT ERROR 




SUBSTK: 



SUBROUTINE CALLING STACK 



T25TBL: 



WORD 





WORD 





WORD 





WORD 





WORD 





WORD 





WORD 





WORD 





WORD 





WORD 





WORD 




WORD 


I 


WORD 


9. 


WORD 


12. 



JSTACK IS 12 WORDS LONG 



STABLE OF DIFFERENCES TO BE USED 
)IN TEST 25 
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.WORD 17. 

.WORD 22. 

.WORD 27. 

.WORD 34. 

. WORD 41. 

.WORD 128. 

•WORD 255. 



SFQ 0046 




T33TBL: 
CYLTBL : 



TABLE TO BE USED IN TEST 33 
CYLINDERS TO BE USED IN THE 
. BLKW 10 



AND 34 TO BUILD 
TEST. 



AND STORE THE 



002424 000000 



» BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 

• BYTE 

• BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 

• BYTE 
.BYTE 
.BYTE 
-BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
. BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
-BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
. BYTE 

.WORD 



;table of default cylinders 



^SUBROUTINE STACK INDEX POINTER 
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SEQ 0047 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

000000 
000000 
000000 

000000 
000000 
000000 
000000 
000000 

oooooo 

000000 

oooooo 
oooooo 
oooooo 



002502 OOOOOO 

002504 OOOOOO 

002506 OOOOOO 

002510 OOOOOO 

002512 OOOOOO 

002514 OOOOOO 



Iffi 



002516 
002520 
002522 
002524 
002526 
002530 
002532 
002534 
002536 
002540 
002542 
002544 
002546 
002550 
002552 
002554 
002556 
002560 



OOOOOO 
OOOOOO 
OOOOOO 

oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 



opflag: 
DONE : 
HADQNE: 

erhead: 

MORECE! 
ERRSWI: 
BSFLAG: 
WRTSWI: 

tblstr: 

RLBAS: 
RLVEC : 
RLDRV: 

L.CS: 

l.ba: 

l.da: 

l.mp: 

T.CS: 

t.ba: 

t.da: 

T • MP : 

HDWRD1: 

HDWRD2: 

HDWRD3: 



OPERATIONAL FLAGS 

MORD 

— 










WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 



WORD 

WORD 
WORD 



WORD 
WORD 
WORD 

WORD 
WORD 
WORD 
WORD 

WORD 
WORD 
WORD 



T.STAT: 


. WORD 





resparm: 




. 




. WORD 







.WORD 







» WORD 







.WORD 





DRVCNT: 


.WORD 





difaug: 


. WORD 





oldcyl: 


. WORD 





newcyl: 


. WORD 





curcyl: 


. WORD 





desdif: 


.WORD 





dessgn: 


.WORD 





deshd: 


. WORD 





DESSEC: 


.WORD 





TEMPO : 


. WORD 





TEMPI : 


. WORD 





TEMP2 : 


. WORD 





TEMP3: 


. WORD 





TEMP4 : 


. WORD 





TEMP5 : 


. WORD 





TEMP6 : 


. WORD 





TEMP7 : 


. WORD 





TEMP 8: 


.WORD 






;operation flags 
operation complete flag 
/head alignment done flag 
;address of error header 
;mqre than 1 compare error 
;error return switch 
;bad sector flags 
jwrite switch 
;t able storage 

;RL11 BASE ADDRESS 
/RL11 VECTOR ADDRESS 
;DRIVE NUMBER UNDER TEST 

CONTROLLER REGISTER STORAGE 
>BEFORE OPERATION 



; CONTROLLER REGISTER STORAGE 
; AFTER OPERATION 



/HEADER WORD STORAGE 



;DRIVE STATE STORAGE 

/PAR AM BLOCK FOR REASON REPORT 



;DRIVE COUNT FOR DRIVES UNDER TEST 

/DIFFERENCE AUGMENT FOR SEEK 

;OLD CYLINDER 

;NEW CYLINDER 

; CURRENT CYLINDER 

/DES IRED DIFFERENCE 

;DESIRED SIGN 

;DESIRED HEAD 

/DESIRED SECTOR 

/TEMPORARY STORAGE 

TEMPORARY STAR AGE 

TEMPORARY STORAGE 

TEMPORARY STORAGE 

/TEMPORARY STORAGE 

/TEMPORARY STORAGE 

TEMPORARY STORAGE 

; TEMPORARY STORAGE 

/TEMPORARY STORAGE 



TIMER STORAGE 
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406 
407 

408 



000000 
177772 



OFMI 



IFHIOOS 

orim: 

orinu: 

ormidi 

ORMIDU: 

OROUTt 

OROUTU: 



EXOCYL: 



Isfval: 

SBSFIL: 
FBSFIL : 

IBOFF: 
□BUFF: 

PATi: 
PAT2 : 



• MORD 



MISCELLANEOUS CQOHTERS 

.WORD 

•WORD 

r: .word o 

• BLKM 64. 

. MORD 

.MORD 



. MORD 
•MORD 

BAD SECTOR TABLES AND 

• MORD 

.BLKM 76 
• BLKM 76 



|Q11 CYL|pp|g FORMARD INNER 

lom C¥Lipp|S FORMARD MIDDLE 

foiE C¥L|pp|| FORMARD OUTER 

OIE CYLjIpU REVERSE IMNER 

ONE CfL||p|R REVERSE MIDDLE 

" REVERSE OUTER 

FORMARD INNER 

FORMARD OUTER 

REVERSE INNER 

REVERSE OUTER 
FORMARD 
SEflRSg 



Oil CYL W p U 

128 CYLggD|R 

128 CYLINDER 

I 128 CYLIMp|i 

I 128 CYLIIplI 

256 CYLINpll 

256 CYLINDER 



; EXPECTED TINE ONE CYLINDER 

|l||ECTED_|0f ATIQI Tj— 



J EiROR" VECTOR ulll HfiEN AUTO SIZING 



> ERROR 



POINTER 



H c «i IS 



EST) 



Isif 

) STORAGE FOR ERROR COUNTERS 
>PASS NUMBER FOR PROGRAM 
jCOUNTER FOR PARAMETER SET NUMBER IN 



1LQCAL g 

)RARDMAR 

JPOMEP " 



.BLKM 
• BLSCi 



» MORD 
.MORD 



200 
200 





177772 



RROR COUNTER 

ERROR COUNTING FLAG 
E TRAP OCCURANCE 
FAILURE OCCURANCE 

POINTERS 

>BAD SECTORS FILES VALID FLAG 

; SOFTWARE BAD SECTOR FILE 
;FACTORY BAD SECTOR FILE 

; INPUT BUFFER 
10UTPUT BUFFER 

>P ATTERN 1 (ALL ZEROS) 



.MORD 177^7 
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409 
410 

411 




PAT3 : 



PIT4: 



mm 

004642 
004644 



mm 

064221 
132110 



PAT6 : 



.MORD 

• MORD 

• MORD 

• MORD 

• MORD 

• MORD 

• MORD 

• MORD 

• MORD 

• MORD 
«»ORD 

• MORD 

• MORD 

• MORD 

• MORD 

• MORD 
« MORD 

• MORD 

• MORD 

• MORD 

• MORD 
.MORD 
. MORD 
.MORD 
. MORD 

• MORD 
. MORD 

• MORD 
« MORD 

• WORD 
. MORD 

• MORD 

• MORD 

• MORD 

• MORD 

• MORD 

• MORD 

• MORD 
» MORD 

• MORD 

• WORD 

• MORD 
. MORD 
. MORD 

• MORD 

• MORD 

• MORD 

.MORD 

.MORD 
. MORD 

• MORD 
. MORD 



. 7777 
177777 

m 

0000. ^ 

Ihhl 

000000 



hiffil 



mm 

064221 
132110 
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MOVE IN 10 TRIES/ 




CE SEQ (IN SEQ CALLED):/ 

TRD. ALL SEC ASSUMED GOOD. / 



ERR 

7><377><377> 



STATUS/ 
UNIT DROPPED/ 



000 
000040 



RESE3: 

RESE4: 



RESULT SETTINGS 
.ASCIZ /IS / 

•ASCIZ / SB / 

RESULT CONDITIONS 
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675 
676 
677 

a 

684 

n 

688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 

m 

7 06 
707 

m 

710 



713 

m 

718 
719 
720 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 

i 




81 



010532 

mm 

010624 
010631 
010640 
010643 
010646 
010657 
010677 
010741 
"1011 
_1043 
011050 
011056 
011064 
011130 
011162 
011216 
011227 
011251 
011303 

olil^o 

011413 

mm 

011470 
011500 
011524 
011543 
011554 

011554 



047045 

045 
045 
052045 
045 
052045 
045 
047045 
045 
045 
045 
045 
045 
052045 
052045 
047045 
047045 
047045 
047JJ45 

04*1 
045 

mm 

045 
045 
045 
047045 
047045 
047045 
045 



052045 

ikt 

052045 

°"SM 

000116 
052045 

022516 
022516 

022516 
022516 

8p§ 

047445 
051445 

052045 



047045 

000 

022524 




.ASCIZ 
.ASCIZ 

•ASCIZ 
• ASCIZ 
•ASCIZ 
•ASCIZ 
•ASCIZ 
•ASCIZ 
• ASCIZ 
. ASCIZ 

• ASCIZ 
• ASCIZ 
•ASCIZ 
• ASCIZ 
•ASCIZ 
•ASCIZ 
•ASCIZ 
•ASCIZ 
•ASCIZ 

a ASCIZ 

-ASCIZ 

-ASCIZ 
•ASCIZ 
•ASCIZ 
•ASCIZ 
•ASCIZ 
•ASCIZ 
•ASCIZ 
•ASCIZ 
-ASCIZ 
• ASCIZ 
•ASCIZ 
•ASCIZ 
-ASCIZ 
. ASCIZ 
•ASCIZ 
•ASCIZ 
•ASCIZ 
•ASCIZ 
• ASCIZ 
-ASCIZ 



GLBERR 
ERR1 



ERR2 
ERR3 
ERR4 



IS / 



- OF / 
/STATE 2/ 
/STATE 3/ 

mm Vm 

/500MS/ 
/CYCLE UP/ 
/DATA XFER/ 
/5 SECDS/ 

/%N%T%N%T%T%06%S%T%01%N/ 
/%N%T%01%S1%T%01%N/ 
/%N%T%Ql%Sm%TiN/ 
/%T%T/ 
/%N%T%T/ 
/%T/ 



/%N/ 

/%NlT%TtN/ 
/%N%f%06%Sl%T%01/ 



/%N%S11%T%S4%T%S4%T%S4%T%S4%T%S2%T/ 
/%N%Tf06%S2%06%S2106%S2%06%S3*03%S2%01%N/ 
/1N%T%06%S2%Q6%S2%06%S2%06/ 
/%N%T/ 
/%T%01/ 
/%T%03/ 

/%N%S11%T%03%S1%T%03%S1%T%01%S1%T%01/ 
/%N%T%T%D3%S1%T%06%S1%T%06/ 
/*N%Sll%T%D3%Sl%Tt06%Sl%T%06/ 
/%N%S5%06/ 
/%S10%T%N%S11%06%N/ 
/%N%S13%T%S5%T%S4%T%S5%T%N/ 
/%T%S2%D6%S4%D6%S4%D6%S4%D6%N/ 
/%T%S2%D6%S14%D6%S4%D6%N/ f 
/%T%S12%D6%S14%D6%N/ 
/%N%S11%T%03%S1%T%C1%S1%T%02/ 
/%T%T%T%01%N/ 
/%N%T/ 
/%N%D2%T/ 

/%N%S1%T%D4%T%T%D3%N/ 

/%N%T%D3%T%D31N/ 
/%N%T%T%T/ 



R3 POINTS TO RESULT MESSAGE 
RESULT: (R3) 

R3 POINTS TO RESULT NAME 
RESULT: (R3) IS 1 SB 

R3 POINTS TO RESULT NAME 
RESULT: (R3) IS SB 1 

R3 POINTS TO RESULT NAME 

R4 POINTS TO RESULT CONDITIONS 
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111 

740 



16:32 PAGE 1-13 

(R3) IS 1 SB (R4) 



ERRS 
SRR6 
ERR7 

errs 



ERR10 



RESULT I 

R3 POUTS fO RESULT MME 

POINTS TO RESULT CONDITIONS 

SULfS (R3) IS SB 1 <R4) 

R||0|T s ROUTIME DETERMINES WHICH ERROR(S) ARE SET AND 

RESULTS *ER*ROR" IS 1 SB 

RROR REPORT 



DRIVE STITE 
R3 - — 



IHiffillSI'r; 

RESULfl (R3-NAMI) IS (R4-V 
RROR..REPORT 



STAT) SB (R3) 



iEIICYL) 




ALUE 1) SB (R5-VALUE 2) 

OORD NUMBER 



s m 



R4) SB (R5) 




003067 
171072 

mm 

014634 



171032 

una 

000001 



BGWMSG 



1$S 



ENDMSG 
L10000: 



ERR1 
TSTB 



MOV 
JSR 
JSR 



EMT 

ERR2 

IMC 

MO? 

JSR 

MO? 

MOV 

MOV 



RRPOINT 



|1r 

pcJrptre 

PC#RPTP" 



. ES 
TREM 



CSMSG 



gERRPOINT 

RL-iSP) 

PC/RPTOP 




gST IF ERROR COUNTING INHIBITED 

_E~B§i| P ERROR COUNT 
ORE Rl 

_ II 

_ R 

SERT MESSAGE ADDRESS POINTER 
IPORT RESULTS 
IPORT REMAINDER 



STORE Rl 

CHECK I 



F ERROR COUNT EXCEEDED 



;BUMP ERROR COUNT 

; STORE Rl 

;REPORT OPERATION 

;SET PARAM NUMBER 

; INSERT NAME ADD POINTER 

;SET IS VALUE 
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,050 01 
2054 



023244 

4 

000001 

014634 



ENDMSG 
L10001: 



ENDMSG 
L10002: 

BGNMSG 



ENDMSG 
L10003: 



CLR 
JSR 
JSR 
MOV 
JSR 



EMT 

ERR3 

INC 

MOV 

JSR 

MOV 

MOV 

CLR 

MOV 

JSR 

JSR 

MOV 

JSR 



EMT 

ERR4 

INC 

MOV 

JSR 

MOV 

MOV 

MOV 

SB? 

JSR 
JSR 
MOV 
JSR 



EMT 

ERR5 

INC 

MOV 

JSR 

MOV 

MOV 

CLR 

MOV 

MOV 

JSR 

JSR 

MOV 

JSR 



JcJipTRES 

pc/rptrem 
pc,ck£rlh 



C$MSG 



gERRPOINT 

ftl,-(SPj 

PC/RPTOP 

mm 

Rl) + 
l/CRl)* 
C/RPTRES 
PC#RPTREM 

(SP)*,R1 
PC/CKERLM 



CSMSG 



mm 

#1, (Rl)+ 

hln H 

PCRPTRES 
PC^RPTREM 

^C/^K^LM 
C$MSG 

gERRPOINT 

mm 

'Rl) + 

\dm 

C/RPtkES 



;SET SB VALUE 
; REPORT RESULTS 
;REPORT REMAINDER 



;RESTORE Rl 

;GO CHECK IF 



ERROR COUNT EXCEEDED 



BUMP ERROR COUNT 
STORE Rl 

REPORT OPERATION 
SET PARAM NUMBER 
INSERT NAME ADD POINTER 
SET IS VALUE 
SET SB VALUE 
REPORT RESULTS 
REPORT REMAINDER 
RESTORE Rl 

GO CHECK IF ERROR COUNT EXCEEDED 



;BUMP ERROR COUNT 

; STORE Rl 

JREPORT OPERATION 

;SET PARAM NUMBER 

/INSERT NAME ADD POINTER 

;SET IS VALUE 

;SET SB VALUE 

JlNSERT ADD OF CONDITION POINTER 
/REPORT RESULTS 
;REPORT REMAINDER 
^RESTORE Rl 

>GO CHECK IF ERROR COUNT EXCEEDED 



;BUMP ERROR COUNT 

/STORE Rl 

;REPORT OPERATION 

;SET PARAM NUMBER 

; INSERT NAME ADD POINTER 

;SET IS VALUE 

;SET SB VALUE 

; INSERT ADD OF CONDITION POINTER 
;REPORT RESULTS 
JREPORT REMAINDER 
^RESTORE Rl 

;G0 CHECK IF ERROR COUNT EXCEEDED 
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054 104023 




000012 



L10004: 



BGNMSG 



17$: 



000002 



000004 



OOOQOO 



9$ t 
10$: 



2$: 



100$: 



EMT 



C$MSG 



NQERCT 



_ETSTAT/RLD A(R2 



!!6 R0 

.JDYMSK,RLCS(R2 
B1T9,R3 




TEST IF ERROR COUNTING INHIBITED 
YES - SKIP 

ELSE BUMP ERROR COUNT 
STORE Rl 
STORE R3 
STORE R4 

?EPORT R OPERATION 
SET PARAM NUMBgR 

"iSERT * 

WUs 

AMP CLEAR ALL BUT FUNCTION 
CHECK IF IT WAS GET STATUS 
YES - STATUS IS IN T.MP, SKIP 
;ELSE DO GET STATUS 



fi 



T IS VALUE 
FOR STATUS STORAGE 



JWAIT FOR CONTROLLER READY 



STEST 
ES - SKIP 



IF READY 



LSE SET NO DRIVE STATUS BIT 
itH MESSAGE HORD AND SKIP 
) STORE STATUS FOR REPORT 

;GET ERROR BITS IN PROPER POSITION 



| GET ERROR 
;CLEAR_UMyS 



IJTS.FROM MP REG 



. BITS 

;GET ERROR BITS FROM CS REG 
3CLEAR OMUSED BITS 

JHO - SKI- 



POSSIBLE ERRORS 



- SKIP 

J TEST IF HDR NOT FOUND ERROR 



KK« K1 

lFMT28,iMRSLT,R4 

iMERRSi-CSP) 



CRC ERR 
;YES - SKIP 

;SET OPI ALONE MESSAGE 
z #MERRS > REPORT ERROR 



JSKIP 
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105$; 
107$J 

109$: 
115$: 

118$: 

120$: 

3$: 

4$: 

6$: 
7$: 



004600 002466 15$: 

002000 002466 

002436 
000200 
000001 
004066 
003466 



18$: 



011546 
01274' 
01144 



002436 000012 



010407 



MOV 

BR 

BIT 

BNE 

MOV 

BR 

MOV 

BR 

BIT 

BEQ 

MOV 

BR 

BIT 

BEQ 

MOV 

BR 

MOV 

CLR 

BIT 

BNE 

TST 

CLC 

ROR 

BNE 

BR 

MOV 

JSR 

BR 

JSR 

TST 

BEQ 

PRINTB 

MOV 

MOV 

MOV 
MOV 
MOV 
EMT 
ADD 
BIT 
BEQ 
BIT 
BNE 
CLR 
MOV 
MOV 
MOV 
MOV 
CMP 
BEQ 
CMP 
BGT 

PRINTB 

MOV 
MOV, 
MOV 



f MHCRC/R4 

100S 

#HCRCERR/R3 
109$ 

f MHNF/R4 

100$ 
fMHFC 
100$ 
tfDCKE 

118$ 
"OCR 



MHFCRC/R4 

_00$ 

tDCKERR/ R3 

118$ 

f MDCRC/R4 

_1t,r 

IT15/R5 



fDLTERR,R3 
i20$ 

#MDLT/R4 

100" 



k 

R5,R3 
(l4) + 



RESTBL(R4),(R1) 
PC/RPTRES 

PC^.RPTREM 



6s, -($p 

7,-(SP) 



IP) 



TEMP3 
15$ 

#FMT17,r. 
TEMP3/-(SP) 

!STAM L 
FMT1 //- 
3,-(SP) 
P#R0 
CSPNTB 
#10, SP 

f DCKERR/ T- CS 



ERR,T.CS 



;HDR CRC MESSAGE 

;TEST IF HCRC WITH HDR NOT FND 
JYES - SKIP 

;MESSAGE HEADER NOT FOUND 

;HNF AND HCRC MESSAGE 
;SKIP 

; TEST IF DATA CHECK SET/ NOT OP 
;NO - SKIP 

;SET MESSAGE DATA CHECK 
;SKIP 

; TEST IF DATA LATE ERROR 
;NQ - SKIP 

;set message data late 

;skip 

;set bit pointer for test 

/CLEAR R4 FOR TABLE COUNT 
;TEST IF BIT IS SET 
;YES - SKIP TO REPORT 
; ELSE BUMP TABLE POINTER 
/CLEAR CARRY 

;SHIFT BIT POINTER TO NEXT BIT 
;LCOP IF NOT 
; ELSE REPORT REMAINDER 
/INSERT NAME ADDRESS 
JREPQRT RESULTS 
>GET NEXT BIT 
/REPORT REMAINDER 
;TEST IF ANY NEW STATUS 
SNO - SKIP 
STAMES/TEMP3 



MORECE 
#128., Rl 

ioSuFF/R5 
|lBUFF,R4 
|R5)/(R4) 

MOR*ECE,#10. 

? 2 fSt15/#MW0RD/R3 
R5),-ISP) 
RESE4,-(SP) 
R4),-tSP) 



;test if data check error 

;no - SKIP 

;test if opi set 

;YES - SKIP 

;CLEAR COMPARE ERROR COUNT 

;SET COMPARE LENGTH 

;SET WORD COUNT 

;SET GOOD WORD POINTER 

;SET TEST WORD POINTER 

;CHECK WORD 

;GOOD - SKIP 

;TEST IF COMPARE LIMIT REACHED 
* VPS - SKIP 

J#R J ESE3/(R4)/#RESE4,(R5) 
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ifrn 



1035 013374 000000 

1036 013376 000377 



3$S 



4$t 



L E I88ff s 

EMDMOD 



§8588° 



BCNMOD 
BGMSM 

miswiw: 



lolimw: 
hilimu: 



• WORD 

• WORD 



*8f Jill* p> 

IP' 

iljll 



ORD,R3,#RESE3,(R4),#RESE4,(R5) ; REPORT DATA 



C$NSG 



HPTCODE 
• WORD 

:S8gP 
:38 R Ri 

.WOR 



L$HW/2 



SPTCODE 



.WORD 
• WORD 



L10013-L$SW/2 





255. 



>G0 CHECK IF ERROR COURT EXCEEDED 



>RL1 



>BIT 

;bi| 



ADDRESS DEFAULT 

EFAULT. 



ITY DEFAULT 
E NUMBER DEFAULT 
CONTROLLER 




= USE ALL 
= USE ALL 
= EXECUTE 



CYLINDERS 

SECTORS 

DRIVE SELECT TEST 



XECUTE HEAD ALIGNMENT 

ROP DRIVE 

~^LE~ 



_ IF NO RESPONSE 
ECT SUPPLIED FLAG 
SPECIFIED FLAG 

SPECIFIED FLAG 

DO MANUAL INTERVENTION 



_ DRIV 



JILI 

LO LIMIT 
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II 
M 

1058 
1059 
1060 

J 

1064 

,1 

■ill 



013456 
013456 
013456 
013456 
013462 

mm 
mm 

013470 

013476 
013502 
013502 
013506 
013510 
013510 

mm 
mm 

013526 
013530 
013530 



012700 
104041 

104051 

mm 

005037 

012700 
104050 



012700 
104050 

103043 



.WORD Q 
.WORD 20. 
.WORD 10. 



ERLIMW: 
DCLlMWi 

gGRMOD DSPCODE 
ISPATCH 



ENDMOD 



BGNMOD 
BGNINIT 



• WORD 
.WORD 
.WORD 
.WORD 
.WORD 
-WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

• WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



19 
19 

ii 

T3 
T4 
T5 
T6 
T7 

?§ 

T10 
Til 



T15 
T16 
T17 
TIB 
T19 



000340 

100014 
002424 
000034 

002012 
000040 



INITCODE 

SETPRI 
MOV 
EMT 

MA|DAL 



i^RO 
C$SPRI 



JERROR LIMIT 
>COMPARE ERROR LIMIT 



1$ 



013372 



003(072 



EMT C$MANI 
BCOMPLETE 
BCS 1$ 
BIC #MITEST ! DRSELT ! 

1$: CLR SSINDX 

READEF f EF.PWR 

MOV #EF.PWR,R0 

EMT CSREFG 
BNCQMPLETE 4$ 

BCC 4$ 

mov l!unit,pwrflg 

BR PWCON 
4$: READEF #EF. START 

MOV lEF.START/RO 

EMT CSREFG 

BNCOMPLETE RESTART 

BCC RESTART 
; ON START INITIALIZE TO 



>CHECK IF MANUAL INTERVENTION ALLOWED 

;YES - SKIP 

HDALIGN, MISWIW ;CLF.AR ALL MANUAL 

; INTERVENTION FLAGS 
;CLEAR SUBROUTINE STACK INDEX 
;P0WER FAILURE 



;NO, GO CHECK NEW PASS 

;SET POWER FAIL FLAG 
;GO SERVICE POWER FAIL 
;CHECK IF START 



;NO - SKIP 
START AT FIRST DRIVE, CLEAR INTERNAL 
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SEQ 0062 



013737 




103406 
005737 



002312 002516 
103 



mm mm 

000377 013376 

040000 013372 

013374 



000037 



000036 



003072 
003072 



002660 
002516 
003064 



002660 



RSTRT: 

1$: 



3$: 



C0U EIun{¥?dI?c r S 

PASNUM 

1ERRCNT/ R0 
64. /Rl 
R0)* 



rIst 



PASS 

MOV 

CLR 

MO¥ 

MOV 

CLR 

DEC 

BNE 

MOV 

MOV 

MOV 

BIT 

BNE 

MOV 

BIT 

BNE 

CLR 

BR 



READEF #EF. RESTART 

MOV |EF. REST ART/RO 

EMT C$REFG 
BCOMPLETE RSTRT 
BCS RSTRT 



COUNT, 

;SET UP UNIT COUNT 
/CLEAR PASS NUMBER 



>GET A 
;CLEAR 



mi 



OR COUNTER STORAGE AREA 



#ERRCNT-2 / ERRPOI 
f-l/PSETNM 
S-l.HADONE 
#HICYL,MISWIW 

#f 77,HILIMW 

|L0C¥L/MIS¥I8 

lSlimw 

SETDON 



;LOOP TILL all cleared 



;PRESET HEAD ALIGN 
;TEST IF HI LIMIT 
;yes - SKIP 
; ELSE INIT HILIMIT 
;TEST IF LO LIMIT SET 
;YES - SKIP 
JELSE CLEAR LO LIMIT 



ER 

INITIAL VALUE 

ONE FLAG 

SET 



>CHECK IF RESTART 



;nq 



#EF. CONTINUE /TEST IF CONTINUE 

||EF*CQNT INUE/RO 



PWCON 



NXTPAS: 

pasnem: 
setdon: 



READEF 
MOV 

EMT C$REFG 
BCOMPLETE 
BCS PWCON 
ON CONTINUE PICK 
READEF #EF. NEW 
MOV »EF . NEW, RO 

EMT C$REPC 
BCOMPLETE PASNEW 
BCS PASNEW 



UP 



UNIT LAST UNDER TEST 

?CHECK IF STARTING NEW PASS 



TST 
BNE 

INC 
MOV 
MOV 
MOV 
INC 
DEC 
ADD 
MOV 
MOV 

GPHARD 
EMT 
MOV 



DRVCNT ; TEST IF ALL UNITS CHECKED 

SETDON ;NO - SKIP 

PASNUM /ELSE BUMP PASS COUNT 

#ERRCNT-2/ ERRPOINT JlNIT THE ERROR POINTER 
r " JGET ALL DRIVES 

;set param select to initial 
;next set of parameters 
;dqwn count drive total 
/update the error pointer 
;set up to get parameters 



BCOMPLETE 



L$UNIT,DRVCNT 

#-l £ PSETNM 
PSETNM 
DRVCNT 
#2,ERRPOINT 
PSETNM,R0 
|RLB AS/R2 
R0,R1 
CSGPHRD 
R0,R1 



BCS 
TST 
BEQ 
DEC 



7$ 
PWRFLG 
NXTPAS 
PWRFLG 



7$ 



;no 



;SKIP IF GOOD PARAM 
; RECENT POWER FAILURE 



; ACCOUNT FOR DRIVE 
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SEQ 0063 



1111 
1112 
1113 
1114 

iifi 



013772 
013774 
013776 
014000 
014002 

014004 

mm 

014014 
014020 
014024 
014026 
014032 
014032 
014036 
014040 



000736 
012122 

0&5721 
012122 



013746 
012746 
104037 
062706 

012700 

mm 




014220 



013700 
104036 



7$: 



mm 

002452 
000003 

000010 

000000 



003062 

000020 013372 

003070 

000340 
014570 

000010 
000000 
003070 

002454 
000200 
000000 

000001 000000 

000003 000004 
000004 
000200 
000000 

000004 

002000 000000 
002652 



BR 

MOV 

MOV 

TST 

MOV 

SETVEC 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

SETPRI 

MOV 

EMT 

MOV 



NXTPAS 

(R1)+/{R2)+ 
CR.1) + ,(R2) + 
(RlW 

(R1)+/CR2)+ 



STORE PARAMETERS CSR 

VECTOR 

BUMP PAST PRIORITY 

DRIVE 



RLVEC,*INTHLR / #340 

flNTfiLR/-JsP) 

RLVEC,-(SP) 

*3,-(5P) 

CSSVEC 
10, SP 


0,R0 
CSSPRI 
RLB AS/R2 



;SET UP VECTOR 



;SET PRIORITY 



;SET RL BASE ADDRESS POINTER 



CHECK 
ERROR 
TST 
BNE 
BIT 
BEQ 



IF DOING AUTO SIZE AND DROP DRIVE IF NOT READY AND 
SETS ON GET STATUS. 

PASNUM ; TEST 

5 J§TOSZ,MISWIW 



5$: 



CLR 
SETVEC 
MOV 
MOV 

MOV 
MOV 
EMT 
ADD 
TST 
TST 
BNE 
MOV 
BIS 
MOV 
BIT 
BNE 
MOV 
BIS 
BIC 
MOV 

WAITMS 

MOV 

EMT 

BIT 

BEQ 

CLRVEC 

MOV 

EMT 

PR I NT F 



5N 

fiE 

rtrruu /Tk 
RRVEC,#TRPHAN,iP40 
»340,-tSP) 

|TRPHAN,-(SP) 
ERRVEC,-(SP) 



IF PASS 
;NO - SKIP 

/TEST IF DOING AUTO SIZE 



22S 5NO - SKIP 

;CHECK IF UNIBUS ADDRESS IS THERE_BEFORE WE CHECK DRIVE HEADY 



TRAP OCCURANCE 

;SET TRAP VECTOR 



J10/SP 
RLCS(R2) 
TRPFLG 



r£dRV,R5 
j£CRDYMSK,R5 



;access bus 
;trap occur?? 

;yes, don't investigate further 
/get drive number 

„ __ tv,r-j ; INSERT CONT READY 

ft5,RLCS(R2) ;LOAD IN DRIVE NUMBER 

«DRDYMSK/PLCS(R2) ;CHECK IF DRIVE IS READY 
20$ JYES - GO DO TEST 

#GETSTAT,RLDA(R2) /ELS E INSERT GET STATUS 
#4,R5 /LOAD R5 WITH GET STATUS FUNCTION 

f CRDYMSK/R5 ; CLE AR CONTROLLER READY 

n 5,RLCS(R2) /LOAD CS REG 

4 ;WAIT 4 MS 

4,R0 . ■ . 

* WTM 



tfOPIERR,RLCS(R2);TEST 
20$ /NO - 

ERRVEC 
ERRVEC/RO 

CSCVEC 

#FMT24 / #DRVNAV 



IF OP I 
SKIP 
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10$i 



MOV 
MOV 
MOV 
MOV 
EMT 
ADD 

PRINTF 

CLR 
BISB 

MO f - 



c i Ip 

$fmt5,#basadd,rlbas,#drvnam,<b,rldrv< 

r£dSKi # <sp) 
drvnamJ-(sP) 

IBASWSP) 
BASADD,-(SP) 
-(SP* 



JDROP DRIVE 



1> 



20$: 



22$: 

;CHECK IF POWER 




MOV 



FAILURE WAIT IS NEEDED 



4$: 



000000 9$: 



TST 
BSQ 

MOV 
BIS 
MOV 
MOV 

BIT 
BNE 

WAITMS 

MOV 

EMT 

DEC 
BNE 

PRINTF 

MOV 
MOV 
MOV 
MOV 
EMT 
ADD 



PWRFLG 

8$ 

RLDRVf R5 



HEEDED??? 

;no, skip 



1DRIVE SELECT 
}SET CRDV 
jSELECT DRIVE 



111' 



WTM 



RO 



% 3IXTY SECOND TIMER 
K,RLCS(R2) JDRIVE DP " 

>YES START TEST 

;WAIT A SECOND 



YET 



#NdPBR;-(SP) 

,t(sp5 



-KM;*"* 1 

FMT24;-, 



; SIXTY GONE BY 

;no 



CSP 
#6, 



PNTF 
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MACY11 

13112 



1181 
1182 



tt 



1 

19i 
19 

[I 



mi 

1191 



1192 
1193 

$\ 

p 

1196 
1197 

I 

PI 
1 

1206 

I 

(35 



014440 000701 
014442 



5 014442 
) 014442 

l mm 



014444 
014444 

\m 

mm 
mm 



m\ n 

m* 



500 



.14... 

8UISS 



14510 
014516 

014524 

mm 

014532 
014534 
014534 
"14540 
L4542 
.14546 
014550 

mm 

014560 
"14562 
.14562 
014562 

4566 
-.4566 
014566 



mi 

0145 



m 



ml mwo 

ir 



014570 
014574 



104011 



mm 

"1746 
>746 

hl A AU 



013700 

hkffl 



L3700 
14036 



104012 

000240 
104055 



005237 
000002 



30AC1052) 22-NOV-78 16:32 PAGE 1-24 
BR 10$ 

8$: 



mm 

000010 



000007 
000200 

88^001 

000003 

002452 
003072 
003072 
002652 



ENDINIT 

L10014S 



ENDMOD 



000000 2$: 



000000 
000000 



C$INIT 



BG1MOD CLNCDDE 
BGNCLN 



SETVEC ERRVEC, #TRPHAN,#340 

MOV f340,-(SP) 

MOV |TRPHAN,-(SP) 

MOV ERRVEC,-(SP) 

MOV #Jc-iSP) 

EMT CSSYEC 

ADD #10, SP 



3$: 

5$: 



7$: 



ENDCLN 

L10015: 



ENDDU 
L10016: 



SETPRI #7 
MOV #7,R0 
EMT C$SPRI 
BIT 
BEQ 
BIS 
BIT 
BNE 

WAITMS 
MOV 

EMT 

CLRVEC RLVEC 
MOV RLVEC 



;SET PRORITY TO 7 



$S 

|CRDYMSK,RLCS(R2)._ ;TEST. IF_CONTROLLER READY 



;TEST IF DRIVE BUSY 
IP 



EMT 
TST 



BEQ 

"EC 



-S ;NO LOOP UNTIL READY 

RLDRV/RLCS(R2) 1SET DRIVE NUMBER 

#DRDYMSK,RLCS(R2) ;TES 

5S ;NO - SKIP 

#3 ;WAIT 300 MS 

if&?s 

"LVEC ^RELEASE VEC 

LVEC,R0 
CSCYEC 
PW 



WRFLG ;PWR FAIL SET 

7$ ;N0 
PWRFLG 
CLRVEC ERRVEC 
MOV ERRVEC, RO 
C$CVEC 



DEI 
CLI 
MQ 1 . 
EMT 

EMT 

NOP 
EMT 



C$CLEAN 



C$DU 



ENDMOD 

BGNMOD GLBSUB 



TRPHAN: INC 

RTI 
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17 014576 



013702 
000002 



HACYii 
13U2 



301(1052) 22-IOV-78 16S 32 PIGS 1-25 



002450 



002430 



tm mm 

A 104020 
6 103451 

i!!f j 

005046 

ml 
ml 



in 



0003 
000010 

If 

000014 

ill UM 

062706 000004 

nm oo306i, 
mm 

014774 016237 000000 002466 



SEQ 0066 



BGHSRV 

I 



HANDLER. 

IB?"" 1 *- 

MOV 

MOV 
MOV 

MOW 
MOV 

MOV 




ABORTS WAIT TIMER AMD STORES ALL RL11 REGS 



; STORE RL REGISTERS 



>SET DOME FLAG 
^RESTORE R2 



LI 



166020 013402 CIERLMS 



Rfl 

ERROR A _ 

DROPS DRIVE IF ERROR LIMIf EXCEED! 
~"!kRPOIMT#EkLI 



DROP 

EH 



LIMIT CHECKING ROUTINE 
IV| IF ERROR LIM " 
IIRRPOINT/ERLIMU 



INLOOP 
EMT C$INLP 
BgOMPLETE. 

PRINTF 
MOV 

MOV 
MO? 
MOV 



IS 



mmw 



;NO - SK 
KHECK 



JYES - 

fMEXERS 



:d 

?EST 



IF ERROR LIMIT EXCEEDED 
IN ERROR LOOP 
SKIP 



CSP^NTF 



PRINTF 

CLR 
BISB 
MOV 
MOV 
MOV 
MOV 
MO? 
MOV 
~MT 



iDRVNAM, 
RLBAS#- 
fBASADD 
fFMT" 



ASADD,RLBAS,#DRVNAM,<B,RLDRV+1> 
(SP) 



D,-(SP) 



ITF 



1$: 

readrl: 



EMT 

£11' 

MOf 

181 

ADD 

DQDU 

MOV 

EMT 

DOCLM 

EMT 

RTS 

READ 
MOV 



Mf 
MT 



fF 

„_ ,SP 
IFMT3 

tea*™ 

C| PMTF 

IsItnm 
psetnm/ro 

C$DODU 
CS.DCLN 



>DROP DRIVE 



;go to clean op 



AMD STORE ALL RL11 
RLCSR(R2),T.CS 



REGISTERS 
;GET CS REG 
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SEQ 0067 




000002 002470 
000004 002472 
000006 002474 



888S8§ 

014774 
002430 

mm 



mm 

002430 

IP 1 ' 1 '- 



mm 



000002 
002466 



002006 
006032 000002 

000003 

000200 000000 



000002 



6062 000002 



mm 002550 

002550 

000003 002550 

002550 
002550 

002424 

000004 002260 
002260 



MOV 
MOV 

MOV 
RTS 



MAITIN: 



1$: 



3$: 
5$: 

IsTINT: 

GSTATRJ 

GSTATCJ 

GSTAT: 
GSTATG5 




OPERATION AND TEST 
CLR OPFLAG 
CLRB NOERCT 
CLR MORECE 
RTS PC 



;GET BUS ADDRESS REG 
>GET DISK ADDRESS 

>get multi-purpose reg 
;return 

MEOUT TO FORCE INTERRUPT ROUTINE 
;MAKE ROOM FOR ERROR POINTER 
;CLEAR FOR POINTER 
2) JTEST IF CONTROLLER READY 

>NO - SKIP TO WAIT 
;READ ALL RL REGS 
;TEST IF INTERRUPT OCCURRED 
}NO - GO SET NO INTERRUPT ERR FLAG 
)ELSE SET TO SLOW ERROR POINTER 
;TEST IF OPI SET 

;no - skip 

;SET MESSAGE FOR NO DRIVE RESPONSE 
JRETURN 

;WAIT 300 MS FOR TIMEOUT 



;TEST IF READY NOW SET 
YES - SKIP 
READ RL REGS 

SET MESSAGE FOR CONTROLLER HUNG 
SKIP 

ELSE CHECK IF INTERRUPT OCCURRED 
YES - SKIP TO SET TO SLOW 
READ RL REGS 

ELSE SET NO INTERRUPT FLAG 
GO TO RETURN 

INITIALIZE ROUTINE 

; CLEAR OPERATION FLAGS 
;RESET INHIBIT ERROR COUNTING 
; RESET MORE COMPARE ERRORS 



pETSf aUdR* 



11" 



000002 002440 



GET STATUS AND 

MOV 

MOV 

BR 
MOV 
MOV 
BR 
MOV 
CLR 
MOV 
MOV 
TST 
MOV 
SUB 
MOV 
MOV 
MOV 
MOV 



GET STATUS WITH RESET ROUTINE 



GSTATG 
TEMP4,-(SP) 
§GETSTAT,TEMP4 



jSTORE TEMP4 
SET # TEMP4 ;SET FOR RESET 



TEMP4 



;STORE TEMP4 
;SET FOR NO RESET 



(SP) 



R3 4 -(SP) 
"SINDX/R 



AND T. REGS 



;STORE TEMP4 
;SET FOR SAVE L. 
..... ^ _ ;STORE R3 

SS1NDX/R3 ;GET SUBROUTINE INDEX 

(R3)+ ;BUMP IT FOR NEXT ENTRY 

4(SP) £ SUBSTK(R3) ; INSERT THIS CALL 
#4,SUBSTK(R3) ; ADJUST IT TO CALLING LOCATION 
R3/SSINDX ;STORE IT BACK 

R0,-(SP> ;STORE RO 

R1,-(SP) ;STORE Rl 

~,ERRSWI — " 



#2 



;SET FOR NO ERROR RETURN 
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CZRLDB.PT1 25-OCT-78 

297 

m 



1305 
1306 
1307 
1308 
1309 



015356 
015360 



032 



013737 



811 



MACYU 30A(1052) 

13:12 



000010 002550 
040000 000000 



22-NOV-78 16:32 PAGE 1-27 



000003 

imn im 

000001 002466 
000020 002474 
144000 002474 

040000 002426 
040000 002466 51$: 

000001 
010201 



002550 



000004 
002466 



000003 002462 
002550 002462 



11$: 



8$: 



013737 




Bit 
BEQ 
BIT 
BEQ 

WAITMS 

MOV 
EHT 
MOV 

if" 

BIT 
BNE 
BIT 
BNE 
BIT 



BEQ 
BIS 
BR 
BIT 
BNE 

WAITMS 
MOV 

EMT 
DEC 
BNE 
MOV 

ERRHRD 
TRAP 

• WORD 

• WORD 
BR 
TST 
BNE 
MOV 
MOV 
MOV 
DEC 
BNE 
MOV 
BR 
MOV 



CLR 
MOV 
BIC 
BIS 
MOV 
MOV 

WAITUS 

MOV 
EMT 
TST 

BEQ 
MOV 



DRSET/TEMP4 



YERR,RLCS(R2) 



3/RO 
SMTM 

Pc/gS?Jt 

f DRDYMSK* Y«CS 

pa 

51$ 



JTEST IF DRIVE RESET 
>NQ - SKIP 

) j test if drive error set 
;no - skip 
;wait for 300 ms for drive to settle 



P'- 

51$ 

ISPDSTAT I HCESTAT 



IjgSTAT/T.MP 



SET 
GET 



WAIT FOR 5 SEC 
DRIVE STATUS 



TEST IF DRIVE READY 
YES - GO DO CLEAR 
ELSE TEST IF HEADS OUT 

YES - BYPASS RELOAD WAIT FLAG 

WDESTAT,T.MP ;TEST |F DRIVE HAS ERROR 



?TMS if 



Ieldwt#opflag 
rverr/t.cs 



>i/R0 
CfWTM 

Rl 

{M5NDEF/R3 
oooi.,;erri 
sERCODE 
10001 
ERR1 

f4,Rl 

Il.MP*2 c R3 

-(R3),-?SP) 



|GETSTAT,L.DA 
TEMP4/L. DA 



DONE 

RLDRV.L.CS 



Kl>URI lis 

L.DA,RL 



L.CS 

lO i Al/L.CS 

DA/RLD A(R2 ) 
__CS,RLCSR(R2) 

DONE 
1$ 

T. MP, T.STAT 



;THAf CAUSED HEADS 
jUNLOAD 

l£si llFwAIT FLAG 
SKIP TO CLEAR 
TEST IF DRIVE ERROR NOW 



TEST IF DRIVE ERROR 

;dec wait counter 

;IF NOT done, loop 

1MESSAGE FOR UNDEFINED STATE 



JEXIT 

;T|S| k JF SAVE REGISTERS 

;SET SAVE COUNT 
;SET ADDRESS OF FIRST SAVE 
;PUT REG ON STACK 



ET ERROR, RDY, OR V 



;gEC_cgy|T 



,_JOP UNTIL ALL SAVED 
|S|| p FOR GET STATUS 

; INSERT PRESET FOR STATUS 

;CLEAR INTERRUPT FLAG 
>SET UP TO GET STATUS 
;CLEAR FOR DRIVE 4-7 SPEC'D 



;load 



OAD 



RL REGS 
CS REG 



;WAIT 100 US FOR INTERRUPT 



;CHECK IF INTERRUPT OCCURRED 

;N0 - SKIP 

;STORE MP REGISTER 
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5610 
5612 



5640 
5644 



01577 



6010 
6012 



mm mm mm 



032762 
001016 

012700 
104026 



104443 

liw 

000442 
012700 

mm 

015772 

mm 
mm 

012703 
104443 

mm 

000411 
012703 

mm 

012603 



040000 002426 



001130 

000001 000000 13$: 



000001 



015226 
010246 



12$: 

000012 
015226 

100000 002466 
001000 002474 
006161 

040000 002466 7$: 



006202 
015026 



002440 
002550 



002456 
000004 



9$: 
1$: 
2$: 



mm 



20$: 

000002 002424 22$: 



BIC 
BIT 



MO 
BR 
BIT 
BEQ 

ERRHRD 

TRAP 

.WORD 

• WORD 
BR 
MOV 
BR 
JSR 
MOV 

ERRHRD 
TRAP 

• WORD 

• WORD 

CLR 
TST 
BNE 
MOV 
MOV 
MOV 
DEC 
BNE 
SUB 



;TEST IF RESET WAS SPECIFIED 



*C<STAMSK>,T.STAT 1 CLEAR ALL BUT STATE 
DRSET/L *- « * ~~ 

Ieldwt, 

DRDYMSK 

?5 



.DA 

OPFLAG 




>NO - SKIP TO EXIT 
;TEST - 



SET 



jf EST IF RELOAD WAIT FLAG 
;NO - SKIP 

JSET WAIT COUNT FOR 60 SECONDS 
RLCSCR2) JTEST IF DRIVE NOW READY 

"ES - SK|P 



z GSTAT 
|ANYERR,T.CS 

tic 



|VCSTAT,T.MP 
|fcNRST,R3 
|?RVERR # T,CS 

10004.,, ERR6 

f SERCOuE 

14$ 

§UNXERR,R3 

PC,WAITIN 

(SP)+,R3 

10002. ,,ERR1 

TSERCODE 

10002 

ERR1 

ERRSWI 

TEMP4 

22$ 

#L.CS,R3 
#4,R1 

|SP)+,(R3)* 



11 



ALL WAIT 



SSINDX 



;DEC COUNT 
;LOOP IF NOT 
;GET DRIVE STATUS 
JERROR RETURN 

;SET RESULT MESSAGE POINTER 



;GO TO EXIT 
;WAIT FOR IMS 



;get drive status 
;test if any error 

;NO - SKIP 

;CHECK IF VOLUME CHECK 
>YES SKIP 

;SET REASON POINTER 
?EXIT 

;CHECK IF DRIVE ERROR 
;NO - SKIP 



;exit 

;set reason pointer 

;§a?t for interrupt 

;store reason pointer for return 



;CLEAR FOR ERROR RETURN 
;TEST IF REGISTERS WERE SAVED 
;NO - SKIP 

;SET POINTER TO RESTORE 
;SET REGISTER COUNT 
;RESTORE REG 
?DEC COUNT 

;LGOP UNTIL ALL ARE RESTORED 

; REMOVE ENTRY FROM SUBROUT STACK 
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-78 16:32 PAGE 1-29 



.97 
398 



m 



I 

m 



mm 8Bi8 

||603| ||||f 

" i fill 



1 11 



407 01610 



.., mm 

422 016176 

423 016204 





IIP! If 
" *' ' II 




002440 
000000 

mm 

002542 
002424 



§1111 nm 



mm 

021116 

mm 



000 

0021 
0003 



8 



mix mm 

.16250 £0000 jj 
01^260 005405 



UIOJUU UU 111 

mm mu 

016312 01273 



002440 



mm 

ooliio 

002524 



002532 

002532 

002530 
002520 

002524 000377 
000001 002532 



002542 IsEEKf 



xseek: 

XSEEKlS 



3$S 



6$; 



m 



MOV 

MOV 
MOV 
MOV 
TSf 
BEQ 
ADD 
RTS 



99$: K 



SPW,R1 
SP)+,R0 
SP)*,R3 

(spi+;temp4 

iRRSWl 
99 S 

ERRSWI,(SP) 

PO 

SP),(SP) 



SEEK 

S8 V 

CLR 

MO? 
MOV 
TSf 
MOV 
SOB 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 

JSR 

65$ 

MOV 

CMP 

BLE 

SOB 

MOV 

MOV 

BR 

TSf 

BPL 

MEG 

MOV 

CLR 

MOV 

SUB 

BPL 

MOV 

MEG 

BR 

CLR 

MOV 

TSf 

BEQ 

CMP 

BNE 

MOV 



ROUTINE 

liir* 

R3,-(SP) 
SSINDX/R3 



; RESf ORE Rl 

/RESTORE R3 

; RESTORE TEMP4 

;TEST If ERROR RETURN 

. y gcj _ SKIP 

MOD IN ERROR RETURN 
;SET ERROR RETURN ADDRESS 



;SET SPECIAL TIMING SEEK FLAG 

;CLEAR SPECIAL SEEK FOR TIMING FLAG 
; STORE R3 

;GET SUBROUTINE INDEX 



(R3) + JBUMP IT FOR NEXT ENTRY 

2(SP) £ SUBSTK(R3 ) f INSERT THIS CALL 



#S,S0BSTK(R3> 
R3/SSINDX 
R0,-(SP* 

PC/GETPOS 

CURCYL/OLDCYL 

NEMCYL,#255. 

If 55. #NEHCYL 
NEHCYL/D IFAUG 
|255.,NEWCYL 

nIwcyl 
nIwcyl 

newcyl/difaug 

NEWCYL 

CURCYL,R5 
NEHCYL/R5 

Jdessgm 

14S 

DESSGN 
R5/DESDIF 
DIFAUG 



18$ 



NEffCYL,#255. 



tl/DESSGM 



) ; INSERT THIS 
;ADJUST IT TO 
;STORE If BACK 



CALLING LOCATION 



> STORE REG 

; PAST GUARD BAND) 
I GET PRESENT POSITION 



NT (FOR SEEKING 



MOVE CURRENT TO OLD CYLINDER 
TEST IF MEM IS GREATER THAN 



255 



NO - SKIP 
ELSE SUBfRACf 255. 
STORE DIFFERENCE AS AUGMENT 
SET NEWCYL AS 255. 
SKIP 

TEST IF NEWCYL HAS NEGATIVE VALUE 
NO - SKIP 

ELSE MAKE IT POSITIVE 
AND STORE IT AS AUGMENT 
AND SET NEHCYL fO 

COMPUTE DIFFERENCE AID NEW CYLINDER 
1UB NEHCYL FROM CURCYL 



IF DIFF IS POSITIVE - SKIP(REV SEEK) 
ELSE SET SIGN FOR FORWARD 

MAKE DIFFERENCE POSITIVE 



SKIP 

SEf SIGN FOR REVERSE 

STORE DIFFERENCE 

IS THERE A DIFFERENCE AUGMENT 

NO - SKIP 

CHECK IF NEW CYL IS 255. 
NO - SKIP 

ELSE FORCE SIGN FOR FORWARD 
(INNER GUARD BAND) 
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444 
445 

m 

450 
451 

452 
453 
454 
455 
456 
457 
458 
459 

m 

464 



016320 
016326 

mm 
mm 

016346 
016350 
016354 
016360 
016362 
016364 
016366 

mm 

016400 
016404 
016406 
016412 

016416 

"16422 



063737 002520 002530 



052715 

mm 

016530 

mm 




002456 
000106 
002454 



002000 



002530 
000007 



000004 
002534 

ilflfi 

am 

0004 

SS8§ 

000012 

002430 
015026 



002440 
002466 



002440 

000002 002424 



002440 
002440 



17S 
18$ 



21$: 



23$: 
25$: 



30$: 



32$: 



65$: 



ADD 

MOV 
HOV 
BIS 
BIC 
CLR 
MOV 
MOV 
ASL 
DEC 
BNE 
TST 
BEQ 
BIS 
TST 
BEQ 
BIS 
BIS 
JSR 
65$ 
CLR 
TST 
BNE 
MOV 
MOV 
MOV 

WAITUS 

MOV 

EMT 

TST 
BNE 
JSR 
MOV 

ERRHRD 

TRAP 

. WORD 

.WORD 

CLR 

BR 

TST 

BPL 

ERRHRD 
TRAP 
. WORD 

.WORD 

CLR 

SUB 

MOV 

MOV 

MOV 

MOV 

TST 

BEQ 

ADD 

RTS 



DIFAUG/DESDIF 

fL.CS/R5 

ffSEEK 
RLDRV 



#BIT1 
(R5) + 



0,(R5)+ 



ii! 



DESDIF,(R5) 
#7,R0 
tR5) 

RO 
21$ 

DESSGN 
23$ 

#DIRBIT,<R5) 

OESHD 
25$ 

#HDSEL £ (R5) 

|MBSET0,(R5)+ 

PC/RDYCHK 

DONE 
TEMPI 
65$ 

-(R5),RLDA(R2 
^RSj/RLBA*"* 4 
R5 5/RLCS 

0. 

0.,R0 
$WTU 
DONE 

32$ 

PC,WAITIN 

(SP)*,R3 

10005. ##ERR1 
TSERCODK 
10005 

ERR1 
ERRSSI 
65$ 
T.CS 
65 S 

10006. ##ERR6 
TSERCODE 
10006 

ERR6 
ERRSWI 
"2,SSINDX 
SP)+ / R5 
SP)+,R1 
♦ ,R0 
+ /R3 
HI 

Bsvi,(sp) 



J ADD AMY AUGMENT TO DIFFERENCE 

;GET L REG ADDRESS 

;SET FOR SEEK 

; I NSERT DRIVE NUMBER 

/CLEAR IF DRIVE 4-7 SPEC'D 

;CLEAR BUS ADDRESS 

/LOAD DIFFERENCE 

;SET TO SHIFT DIFFERENCE 



;L0OP UNTIL ALIGNED 

;TEST SIGN 

;SKIP IF 

/ ELSE INSERT SIGN 

;TEST IF HEAD 

;YES - SKIP 

;ELSE SET HEAD BIT 

; INSERT MARKER BIT 

?CHECK IF DRIVE READY 

/CLEAR INTERRUPT FLAG 
;CHECK IF SPECIAL SEEK FLAG SET 
;YES - SKIP, DO NOT START SEEK 
;LDAD RL REGISTERS 



;T EST IF INTERRUPT DONE 

YES — SKIP 
;GO WAIT FOR INTERRUPT 
/GET RESULT MESSAGE POINTER 



;CLEAR FOR ERROR ERROR RETURN 

/TEST IF ANY ERROR 
;NO - SKIP 



/CLEAR FOR ERROR ERROR RETURN 
;REMOVE ENTRY FROM SUBROUT STACK 
/RESTORE REGISTER 



/RESTORE R3 

/TEST IF ERROR RETURN 

;YES - SKIP 

/ADD IN ERROR RETURN 
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lit 

55 



016562 
016566 



662 



tm 



w 



mm 



000414 



003063 

mm 
mm 



mm 



MACYll 301(1052) 
13112 

000000 
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002424 



mm 

000012 



021116 

002526 
017454 

mm 

002524 

002524 
016070 

005670 
020650 

002466 



002440 
021116 

002526 
000012 



002 
002 



'60 
>60 



002440 



002524 



99$ % 



BGNSEG 

1$S 



002524 



002522 5$: 



in 



10$: 



14$: 



MOV 
RTS 



SP),(SP) 



POSITION HEADS ROUTINE 
TO CYLINDER SPECIFIED I 



MOV 
MOV 
TST 
MOV 
SUB 
MOV 
MOV 
MOV 
MOV 

PH§5$ 
MOV 

EMT 

INLOOP 
EMT 



BNCOMPLEf 



DER 

R3,-(SP5 
SS*NDX,R3 



JSET ERROR RETURN ADDRESS 



POSITIONS HEADS USING 1 CYLINDER SEEKS 
~ " "LLING ROUTINE 



l(s£)*SUBSTK(R3) J INSEI 

|4, SU|STK(R3* € 

R3,SSINDX 



N R5 BY THE CA! 
JSAVE REGS 

| GET SUBROUTINE INDEX 



BCC 
JSR 
60$ 
CMP 
BNE 
JSR 
BR 
MOV 
CMP 
BEQ 
BGT 
IMC 
BR 
DEC 
JSR 

JSR 
60$ 
TST 
BPL 

ERRHRD 
TRAP 

• WORD 

• WORD 

CLR 

BR 

JSR 

60S 

CMP 

BNE 

MOV 

BR 




IBUMP IT FOR NEXT ENTRY 

J INSERT THIS CALL 
;ADJUST IT TO CALLING LOCATION 



PC,GETPOS 
CURCYL, NEWCYL 

P^ONSHAP 

C$RCYL,OLDCYL 
CURCYL, R5 

NEWCYL 

NEWCYL 
PCXSEEK 

*3000.,R1 
PC,RDYWAIT 

TgCS 

iO?08* £ #ERR6 

TSERCODE 

10008 

ERR6 

ERRSWI 

60$ 

PC,GETPOS 

CURCYL, N EWCYL 

15$ 

|10.,R4 



;STORE IT BACK 

;SET FOR NO ERROR RETURN 
J GET CURRENT POSITION 

;SET RETRY COUNT 



JCHECK IF IN ERROR LOOP 

}UQ - SKIP 

;ELSE GET POSITION 

;CHECK IF AT INTENDED POSITION 
;NO - SKIP 

>SHAP OLDCYL AND NEWCYL 
;SKIP 



;IN NOT LOOPING. STORE CURCYL AS OLDCYL 
>CHECK IF HDS AT FINAL POSITION 
>YES - GO TO EXIT 

;IF CURCYL. > FINAL POSITION - SKIP 
;ELSE BUMP NEWCYL (MOVE HDS IN) 
;SKIP 

>DEC NEWCYL (MOVE HDS OUT) 

?DO SEEK 

;SET WAIT COUNT 300 MS 
;WAIT FOR DRIVE READY 

;test if any error 

>NO - SKIP 



>CLEAR FOR ERROR ERROR RETURN 
;GET POSITION 

;CHECK IF ARRIVED AT DESIRED PLACE 
;N0 - SKIP 

;ELSE INIT RETRY COUNT 
;G0 DO NEXT SEEK 
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005737 




MACY11 

13:12 

002532 
002526 

007172 

002440 
002526 
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002440 
002440 

000000 



002424 



oooog 

00000. 
002424 



002524 



002260 
002260 



002440 



017230 
017234 



012703 
012704 



000002 

mm 

000001 002466 



007543 
010471 



15$: 



16$: 



002524 17$: 



281.' 

ENDSEG 

10000$: 
000002 002424 PH65$: 



99$: 



6dychk: 



1$: 



TST 
BNE 
CMP 
BGT 
DEC 
BNE 
MOV 

ERRHRD 
TRAP 
. WORD 

.WORD 

CLR 

BR 

CMP 

BLT 

BR 



EMT 
SUB 
MOV 
MOV 
MOV 
TST 
BEQ 
ADD 
RTS 
MOV 
RTS 

DRIVE 

500MS 

MOV 

MOV 

TST 

MOV 

SUB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

JSR 

4S 

BIT 

BNE 

WAITUS 

MOV 

EMT 

DEC 
BNE 
MOV 
MOV 



DESSGN 
17$ 

CURCYL, NEWCYL 

14$ 
R4 

SSdM0VF,R3 
10009.*, ERR1 

TSERCODE 

10009 

ERR1 

ERRSWI 

60$ 

CURCYL, NEWCYL 

14$ 
16$ 



CSESEG 

#2,SSINDX 

(SP)+,R4 

(SP)+,R0 

(SP)+,R3 

ERRSWI 

99$ 

ERRSWI,(SP) 

PC 

SP),(SP) 



;TEST IF GOING IN 
>YES - SKIP 

;CHECK IF HEADS DID NOT MOVE IN 

;YES - SKIP 

?DEC RETRY COUNT 

;DO ANOTHER SEEK IF NOT 

>ELSE SET RESULT MESSAGE POINTER 



/CLEAR FOR ERROR ERROR RETURN 

;HDS SHOULD MOVE OUT, CHK THEY DID 
;YES - SKIP 

;ELSE GO DEC AND RETRY 



;REMOVE ENTRY FROM SUB ROUT STACK 
/RESTORE REGISTERS 



;TEST IF ERROR RETURN 

;YES - SKIP 

;ADD IN ERROR RETURN 

>SET ERROR RETURN ADDRESS 



READY TEST ROUTINE. 
FOR READY TO SET. 

R3,-(SP) 

SSINDX,R3 



l(SpS £ SUBSTK(R3) 
4,SU&STK(R3) 
3,SSINDX 

RO, " * 
Rl 
R4 



I: 



..0,-(SP) 

ri,-(sp5 

4,-(SP> 
2 £ ERRSWI 

00.,R1 

stat 



CHECKS DEI VE IS READY. IF NOT, WAIT 

; STORE REGS 
;GET SUBROUTINE INDEX 
;BUMP IT FOR NEXT ENTRY 

J INSERT THIS CALL 
; ADJUST IT TO CALLING LOCATION 
;STORE IT BACK 



m 

PC,G 

|DRD 



DRDYMSK,T.CS 



#MDRDY,R3 
#C500MS,R4 



;SET FOR NO ERROR RETURN 
;SET WAIT COUNT 
;GET DRIVE STATUS 

;TEST IF DRIVE READY 

?YES - EXIT 



;DEC WAIT COUNT 

;LOOP IF NOT 

;SET RESULT MESSAGE POINTER 

;SET CONDITION MESSAGE POINTER 
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SEQ 0074 




its 5 oi 
m 



000001 



m m 

017430 00100' 

mm nm 



017444 
"7446 
7452 



002440 
002440 
000000 

mm 

013400 



010000 
002534 



"II 



000000 



013372 
002534 



013372 
002534 



2$: 



100000 002466 3$: 



if: 



8 017454 010046 



99$: 

; 

£hoshd: 
1$: 

§SAPHD! 



1|: 

omswap: 



ERRHRD 

TRAP 

- WORD 

.WORD 

NOV 

JSR 

4$ 

BIT 

Big 

WAITMS 

MOV 

EMT 

DEC 
BME 
BIT 
BEQ 

|R|pRD 

• WORD 

• WORD 

DEC 
CLR 
SUB 
MOV 
MOV 
MOV 
MOV 
TST 
BEQ 
ADD 
RTS 
MOV 
RTS 



10010. ##ERR5 

tsercode 

Ic?g§?It 
#drdymsk/t.cs 



1,R0 

SWTM 



Hi 

S! 



HYERR/T. CS 



1 g^366 ERR6 

10011 
ERR6 
ERRCNT 
ERRSWI 

!2,SSINDX 
SP)+,R4 
SP)*,R1 
sp)+;ro 
SP)+,R3 
RRSWI 
99$ 

ERRSWI,(SP) 

PC 

g£SP>,(SP) 



;set wait count for 5 seconds 
)get drive status 

; test if drive ready 
;yes - skip 

>WAIT FOR 100MS 



;dec wait counter 
;loop until time done 
>test if anyerr set 

;NO - SKIP 

jreport all errors 



;reduce error court for dual errors 
;clear for error return 

|||HpVE EgTR| FROM SUB ROUT STACK 



; test if error return 

;yes - skip 

; add in error return 

;set error return address 



CHOSE HEAD ROUTINE. PICKS HEAD 
SELECTED BY SOFTWARE PARAMETER 



UNLESS SPECIFIC HEAD IS 



CLR 
BIT 
BEQ 
MOV 

RTS 



a 



EADLM,MISWIW 

ADS/DESHD 



;CLEAR TO HEAD 
/TEST IF HEAD SPECIFIED 
}HO - SKIP 

J INSERT SPECIFIED HEAD 



SWAP HEAD ROUTINE. CHANGES SELECTED HEAD TO HEAD 1 
UNLESS HEAD SPECIFICALLY SELECTED BY SOFTWARE PARAMETER. 



BIT 
BNE 

TST 
BNE 
MOV 
ADD 
RTS 
MOV 
RTS 



|HEADLM,MISWIW 



ESHD 

Ldeshd 
^,csp> 

j|j[SP),(SP> 



;TEST IF HEAD SPECIFIED 
;YES - TAKE ABORT EXIT 

;test if head one used 

;YES - TAKE ABORT EXIT 

;else set for head one 
jbump past abort return 

;return 

/get abort destination 



SWAP OLD CYLINDER AND NEW CYLINDER ROUTINE. 
MOV R0,-(SP) ;STORE RO 
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SEQ 0075 



1699 

Ml 

1702 
1703 



I 

1710 

m 

C4 



718 

w 

722 

m 

725 
726 

m 

729 
7|0 

734 




017470 
017474 
017476 



7534 



7550 
7554 
7560 
7564 
7566 



w 

im 
mi 



017632 

mtn 

017646 

mm 

017656 
017664 

mm 

017700 
017702 

mw 

017716 
017720 



005737 
001051 



005046 
153716 
012746 
013746 
012746 
012746 
012746 
010600 
104017 
062706 

012746 
01274- 

1J4S1' 

9 tm 

um 

83^402 

005037 
010346 

mm 
mm 
mm 

010146 
010446 

mm 

001007 
012703 



002522 
002524 
002524 



003074 




000006 



002455 
005633 
002450 
005622 



000014 

ma 

mm 

177777 



000001 

002550 

002424 

000002 
000004 
002424 



000002 
002550 



002466 



002522 



MOV 
MOV 

MOV 
MOV 
RTS 



OLDCYL/RO 

NEWCYL#OLDCYL 

RO/NEWCYL 



;move old to ro 
;move new to old 
;put old in new 

;restqre ro 



BAD SECTOR FILES VALID CHECK ROUTINE. CHECKS IF BAD SECTOR 
FILES HAVE BEEN READ AND STORED. IF NOT, REPORT AND FORCE 



> r un 

ckbsvd: TST 

BNE 
PRINTF 

MOV 
MOV 
MOV 
MOV 
EMT 
ADD 

PRINTF 

CLR 

BISB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

PRINTF 

MOV 
MOV 
MOV 
EMT 
ADD 

003076 MOV 
003272 MOV 

5$: RTS 



FORCE FILES TO LOOK LIKE ALL SECTORS 



BSFVAL 

pMT9 £ #RSNSTR 

lBSNSTR,-(SP) 
fFMT9,-tsP) 

SP/RO 
"SPNTF 



;TEST IF BAD 
;YES - EXIT 
; REPORT 



OK. 
SECTORS 



#BASADD,RLBAS/#DRVNAM/<B/RLDRV-fl> 



|#A|§ 

r£drv+i,<sp) 
#drvnam/-(sp) 

RLBAS £ -(SP) 

#BASADD,-(SP) 

#FMT5,-(SP) 

|5/-(SP) 

SP,R0 

CSPNTF 

|FMT3 

iFMT3,-<SP) 

SP,R0 

CSPNTF 

"4 # SP 
-1/SBSFIL 
-1,FBSFIL 



002550 XRDHDC: 



XRDHD: 
XRDHDG: 



READ HEADERS ROUTINE. 
MOV #1,TEMP4 
BR XRDHDG 

TEMP4_ 

ss1n&x,R3 



002260 
002260 



002440 



CLR 
MOV 
MOV 
TST 
MOV 
SUB 
MOV 
MOV 
MOV 
MOV 
MOV 
TST 
BNE 
MOV 



3,-(SP) 
.SINDX/R 



SUBSTK^R3) 



#4,SUBSTK(R3 
R3/SSINDX 
R0,-(SP v 
R1/-(SP 

R4,-(SP 

j2nPS RS 

ftL.MP*2,R3 



SWI 



; FORCE FILES TO NO ENTRIES 



;SET FLAG TO BYPASS REG STORAGE 
?GO DO IT 

;SET FLAG TO SAVE T. AMD L. REGS 
;STORE REGISTERS 
;GET SUBROUTINE INDEX 
JBUMP IT FOR NEXT ENTRY 

> INSERT THIS CALL 
>ADJUST IT TO CALLING LOCATION 
;STORE IT BACK 



;SET FOR NO ERROR RETURN 
/TEST IF REGISTERS TO BE SAVED 
>N0 - SKIP 

;SET POINTER FOR REGS 



ASSEMBLY ROUTINES 
CZRLDB.PT1 25-OCT-78 



740 
_741 
1742 



MACY11 30A(1052) 22-MOV-78 16:32 PACE 1-35 
13112 



6144 

0150 

8112 



00041 
00473 



000004 



002466 



mti 



476 

...006 
000006 

015026 



1$S 



2$: 



3$: 
000012 

002430 

000001 002466 5$S 

007543 

010510 



mm < $: 

000001 002466 
002440 

11$: 

010522 



10$: 



12$: 



14$: 



8&F S 



11! 



Bit 



M<3 



as.- 



(SP) 



;SET CQOMT 
;SAYE REGISTER 



PC/RDYCHK 
DONE 

pDHEAD,(Rl)^ 



lgRDYMSK,?,CS 



0017. £ ,ERR5 
||pODE 



JCLEAR I Nit 
I GET ADDRES 



VE*felAD¥ 



ARE SAVED 



JCLEAR INTERRUPT FLAG 

«« s 0F L p AD regs 

£ NUMBER 

_ . DRIVE 4-7 SPEC'D 

f INSERT COMMAND 
>CLE AR BA 
;CLEAR DA 
JLOAD RL11 REGS 



IcJgStIt 



#DRDYMSK,T.CS 
p|sHI 



|C5S|C,R| { 
fSERC56i 



RR5 



0014 

-R5 



ERRS 
60$ 
T.CS 

1^16w,ERR6 

TSERCODE 

60$ 

tHDHRD^Rl 

RLMP?R2),(R1>+ 

RLMP(R2),<R1)+ 

65 $ 

PC,WAITIN 



JWAIT IMS FOR INTERRUPT 



IJgST 




INTERRUPT FLAG SET 

IP 

"IVE READY 



-_ADY MESSAGE 
ON OF AFTER DATA XFER 



;SET WAIT COUNT FOR 5 SECONDS 
J GET STATUS 



jTEST 



IF DRIVE HAS COME READY 

SKIP 



9CLEAR ERROR SWITCH 
JSKIP 

;DEC WAIT COUNT 
;LOOP UNTJL TIME DONE 



,SKIP 
;DEC WAI 

>LQOP UN., 

>SET CONDITION AFTER 5 SECONDS 



?EXIT 

;CHECK FOR ANY ERRORS 
;NO - SKIP 
;REPORT ALL ERRORS 



>GET POINTER 

;sfr~- - 



ORE LAST TWO HEADER WORDS 



>EXIT 

JWAIT FOR INTERRUPT 
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012603 




002440 
002550 



88000! 



000002 002424 

002440 
002440 
000000 



002424 

00000 
000" 
002 



002 



60S: 
65$: 



20$: 
22$: 



99$: 
VERHDRi 



002260 
002260 



mm 



3$: 



MOV 

ERRHRD 

TRAP 

.WORD 

eT D 

TST 
BNE 
MOV 
MOV 
MOV 
DEC 
BNE 
SUB 
MOV 
MOV 
MOV 
MOV 
TST 
BEQ 
ADD 
RTS 
MOV 
RTS 



(SP)*,R3 
10015. ,,ERR1 




ERRS 
99$ 
ERRSWI,(SP) 

g(SP),(SP) 



JGET RESULTS 
;REPORT 



;CLEAR FOR ERROR ERROR RETURN 
?TEST IF REGISTERS WERE SAVED 
>N0 - SKIP 

;SET POINTER TO RESTORE REGS 
>SET COUNT 
;RESTORE REGISTER 
;DEC COUNT 

JLOOP UNTIL ALL ARE RESTORED 
;REMOVE ENTRY FROM SUB ROUT STACK 
;RESTORE REGS 



JTEST IF ERROR RETURN 

?YES - SKIP 

; ADD IN ERROR RETURN 

?SET ERROR RETURN ADDRESS 



VERIFY HEADERS ROUTINE. 
SEQUENCE 



MOV 

MOV 
TST 
MOV 
SUB 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
BIS 
CLR 
MOV 
MOV 
CLR 
MOV 
MOV 
BIC 
MOV 
ASR 
DEC 
BNE 
CMP 
BEQ 

ERRHRD 
TRAP 
.WORD 
. WORD 



R 3#-(SP) 
SSINDX,R3 

2(SP) £ SUBSTK(R3 
j4,SUBSTK(R3) 
R3,SSINDX 
R0,-(SP- 



R1,-(SP 
R4/-<SP 



#2,ERRSWI 
IHDRCMP, OPFLAG 
MORECE 
*IBUFF,R4 
|TEMP0/R5 

f*CHDCYL/ Rl 

lt /R0 

RO 

3$ 

Rl/NEWCYL 

l0018. £ ,ERR10 

tsercode 

10018 
ERR10 



COMPARES 40 HEADERS FOR CONTENT AND 

;STORE REGS 
;GET SUBROUTINE INDEX 
;BUMP IT FOR NEXT ENTRY 
) 5 INSERT THIS CALL 
;ADJUST IT TO CALLING LOCATION 
;STORE IT BACK 



;SET FOR NO ERROR RETURN 
;SET HEADER COMPARE FLAG 
JCLEAR MORE ERRORS FLAG 
;SET POINTER TO HEADERS 
;SET POINTER TO WORK AREA 
JCLEAR FOR WORD COUNTER 
;M0VE HDR WORD TO WORK AREA 
;PUT WORD IN REG 1 
CLEAR ALL BUT CYLINDER 
SET SHIFT COUNT 
SHIFT 



DEC 
LOOP 
CHECK 
YES - 



IF CYLINDER PART GOOD 



SKIP 
REPORT ERROR 
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010337 
021274 012737 



1 



002440 
002440 
000000 



002424 



mm 

002440 
002440 

000000 



88S81 

02424 



002424 



017642 

a 



002424 


0,. 
002 



000002 002440 



mm 



99$: 



.HQR 

DEC 
CLR 
SUB 
MOV 
MOV 
MOV 
MOV 
TST 
BEQ 
ADO 
RTS 

M 9 V 
RTS 



ERR6 
ERRCMT 

RRSUI 

2 £ SSINDX 

JRSMI 
ERftSNI, 



J DEC FOR DOUBLE ERROR REPORT 
J CLEAR FOR ERROR ERROR RETURN 
IREMOVE ENTRY FROM SUBROUT STACK 
) RESTORE REGISTERS 



mmi 



(SP) 
SP),(SP) 



;yi 
;add 

1SET 



ROR RETURN 



RETURN 
ERROR RETURN ADDRESS 



002424 65$: 



99$: 



; GET^POSIJION 

i rumbIS I| J§l 

GETPOS: MOV 

m 

MOV 

SUB 

as; 

MOV 

il\ 

MOV 

BIC 
MOV 
ASR 
DEC 
BSE 
MOV 
SUB 
MOV 

88? 

TST 
BEQ 

ADD 
RTS 
MOV 

RTS 




ROUTIIK, READS A HEAD 
SENTLY POSITIONED) 



A HEADER FROM 

AND — 



IBS. 



_ CURRENT CYLINDER 
STORES CYLINDER 



§lgiilNE INDEX 
f FOR NEXT 

If THIS ~ " 



JSfORE IT BACK 



ENTRY 

CALL 

CALLING LOCATION 



4$: 



"*clBJfE?R3 
~,R5 



|*CH 



;DO READ HEADER 

>CET HEADER MQRD 
1CLEAR ALL BUT CYLINDER 



R3/CURCYL 

M * -""NDX 



jStflFT TO RIGHT JUSTIFY 



; STORE AS CURRENT CYLINDER 
? REMOVE ENTRY FROM SUBROUT STACK 



IESTORE REGISTERS 



IrIsNIsCSP) 
SP),(SP) 



; ADD I 



ST IF ERROR RETURN 
SKIP 
N ERROR RETURN 



VERPOS: 



CHE 
MOV 
MOV 

TST 
MOV 

SUB 
MOV 

MOV 



POSITION 

HEADS 



R3 € - 

ss € ~ 



ARE 
H^X/R^ 



ii 

3/SSINDX 
#2 / ERRSVl 



W~ 
'Jffl! 

jlDJ 
;STOi 



>SET ERROR RETURN ADDRESS 

HEADER.J USING GETPOS )„AND 



(USING GET. _ 

EH CYLINDER (CURCYL = NEHCYL). 



JII? R iulIgyTiNE„ 



. ._. „ INDEX 

;BUMP IT FOR NEXT ENTRY 
INSERT THIS CALL 
~*UST |f TO CALL 



SER 
_UST ._ 
ORE If BACK 

>SET FOR NO ERROR RETURN 



IMG LOCATION 
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002526 



MB" 



60 



002440 

002426 

ooltli 

002456 



002462 
000004 



2033 
2034 
2035 



000000 
000000 



002424 65$ 



99$: 



&DALHD: 



3$: 



6$: 
7$: 



021600 
021602 



005300 
001372 



JSR 

65$ 

CMP 

BEQ 

ERRHRD 

TRAP 

• MQRD 

• WORD 
CLR 

SUB 
MOV 

TST 
BEQ 
ADD 
RTS 
MOV 
RTS 



READ 

IN II 

MOV 

MOV 

TST 

MOV 

SUB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

BIS 

MOV 

MOV 

ADD 

MOV 

BIS 

BIC 

CLR 

CLR 

TST 

BEQ 

BIS 

MOV 

MOV 

BIT 

BNE 

JSR 

65$ 

MOV 

MOV 

BIT 

BNE 

DEC 

BNE 



PC, GETPOS 
NEUCYL/CURCYL 

l§022. £ ,ERR8 

tIercoDe 

HUB 2 

ERRSHI 



>GET POSITION 

;CHECK IF CURRENT CYL IS NEW CYL 
>YES - SKIP 



#2 £ SSINDX 

CSP)+,R3 

ERRSHI 

IrIshi # (sp) 

ft(SP),(SP) 



ALL HEADERS ROUT 
IUFF, 

R3/-CSP) 

SSINDX/R3 

2(SP) £ SUBSTK( 
f4 / SU6STK(R3) 
R3/SSINDX 

Rl """ 

K 

f40.«Rl 

f HDR40/OPFLAG 
IlBUFF.rR3 
RLBAS/R4 
"RLMP,R4 
10,L.CS 
LDRV € L.CS 
*BIT10,L.CS 
L.BA 
L.DA 
DESHD 

"Id 



;CLEAR FOR ERROR ERROR RETURN 

;REMOVE ENTRY FROM SUBROUT STACK 
/RESTORE R3 
>TEST IF ERROR RETURN 

;yes - skip 
; add in error return 

;set error return address 
ine. 40 headers are read and stored 

;STORE REGISTERS 
;GET SUBROUTINE INDEX 
/BUMP IT FOR NEXT ENTRY 
R3) ; INSERT THIS CALL 

;adjust IT TO CALLING LOCATION 
; STORE IT BACK 




JSET FOR NO ERROR RETURN 

;SET HEADER COUNT 

;SET 40 HDR OP FLAG 

;SET POINTER TO STORE HDRS 

;GET BASE ADDRESS 

>MAKE IT POINT TO MP REG 

;LOAD FOR READ HEADER/ HQ INTERRUPT 

; INSERT DRIVE NUMBER 

;CLEAR FOR DRIVE 4-7 SPEC'D 

/CLEAR BA 

;CLEAR DA 

>TEST IF HEAD 

;YES - SKIP 

;else insert head 

;load rlda reg 

;load rlba 

(r2) ;test if controller ready 



C/RDYCHK 



?YE: 
;EL: 



SE CHECK READY 



L.CS/RLCS(R2) ;L0AD RLCS REG 

#77777, RO JSET COUNT FOR HAIT 

|CRDYMSK/RLCS(R2) SCHECK THAT OPERATION COMPLETED 

8$ ;YES - SKIP 

RO ;DEC COUNT 

7$ ;SKIP IF NOT YET 
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ERR1 




8$! 



12$: 

000002 002424 65$! 

002440 
002440 

000000 99$: 



004066 

002234 

177777 
000010 
000020 

3$: 



ERR6 




s 

INTER 



/clear for error return 
Sp 1 



lltfl ERRaRS 



;CLEAR FOR ERROR RETURN 
; STORE HEADER WDRDS 

;DEC HEADER COUNT 

IIKW.HII.K?; >»»»»' "«> 



RQR RETURN 

ROR RETURN 
;SET ERROR RETURN ADDRESS 



T ^ a £BB5ISi-TS# T ?l£2. T ? 2 i E -giSi R i5i D Gi§ E gi?ig 

;STORE REGISTERS 



II. 



3>,#-l 
/#8. 

,#16. 



IF PATTERN IS ALL 1 

SKIP TTERM 5 
IF PATTERN 9 OR 10 

llhl fife™ 



S FORM SOURCE 
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MACYU 
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000002 002424 

002440 
002440 
000000 

002436 013404 



002542 

mm 

002426 
002556 

mm 



?REMG¥£ ENTRY 

j restore MEGS 



;TEST IF ERROR RETURN 



jtest ir 
;yes - sk_. 
;set ptrs back to 
jreport error 




FROM SUBROOT STACK 



OR RETURN 
ERROR RETURN ADDRESS 

|OMPARS ERRORS LIMIT EXCEEDED 



ERROR WORDS 



ISloR WORDS 

Iter 

E 



;slf SPECIAL WRITE FOR TIMING FLAG 

CLEAR o |P||IAL WRITE FLAG 
"lTEST F IF CYLiIdER 255 (BAD SEC) 
.18-1 fpHEAD 1 (BAD SECTOR FILES) 

Bxicuf" FLkG 

READ 

jSfORE R3 

— *- -"BROUTIHE INDEX 
;B0MP TO NEXT STACK ENTRY 
| INSERT THIS CALL 

hwhm'ot' v ° call 

;STORE OTHER REGISTERS 

; CHECK IF DRIVE READY 

;GET ADDRESS OF LOAD REGS 

SET COMMAND 
. INSERT DRIVE NUMBER 
;CLEAR FOR DRIVE 4 - 7 SPE 
JTEST IF WRITE DATA 
;YES - SKIP 

;else set ba for read 
;set b a for write 
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turn 



002534 



004?2o 

mm 



002426 

mm 



1006 
)004 



4$: 

5$: 



7$: 



002426 8$: 
002426 



2$: 



10S: 



000002 
000000 

005670 

002430 

015026 



000001 002466 14$: 



007543 
010510 



000062 

015226 17$: 
000001 002466 



MOV 
MOV 
ASL 
DEC 
BNE 
TST 
BEQ 
BIS 
BIS 
MOV 
TST 
BEQ 
MOV 
BIT 



MOV 

ERRHRD 
TRAP 

• WORD 
.WORD 

BR 

BIT 

BNE 

MOV 

MOV 

ERRHRD 
TRAP 

• WORD 
.WORD 

MOV 
JSR 

ttl 

BNE 
DEC 



C^RC|L,(R3) 

dIshd 

{ 7 |sMSK,(R3) 




*CBADADD,OPFLAG 
MWRTAB,R3 

"032. £ #ERR1 
ERCQDE 



;get current cylinder 

; ALIGN IT IN DA 



;TEST IF HEAD 

;yes - skip 

;SET FOR HEAD 1 

; INSERT DESIRED SECTOR 

? INSERT WORD COUNT 

; CHECK IF SPECIAL WRITE FOR TIMING 

;no - SKIP 

;ELSE SET FOR 1 WORD TRANSFER 
;TEST IF BAD ADDRESS FLAG SET 
;N0 - SKIP 

/CLEAR ALL BUT THIS FLAG 
;SET RESULT MESSAGE POINTER 



Si 



RLMPCR2 ) 
# RLDA(R2) 
/RLBA 

m . _ a ;rlcs 

430061 

§3000. ,R0 
CSWTU 
DONE 
14$ 

PC^WAITIN 

TSERCODE 

10030 

ERR1 

64$ 

#DRDYMSK/T.CS 

p§RDY/R3 
f CAFDT/R4 
10032.,, ERRS 

ERR5 
#50. /Rl 
PC,GSTAT 

#DRDYMSK,T.CS 

20$ 
Rl 



;CLEAR ALL FLAGS 

; CLEAR INTERRUPT FLAG 
;CHECK IF SPECIAL WRITE FLAG SET 
;YES - DO NOT START WRITE 
/LOAD RL REGS 



;WAIT 300MS FOR INTERRUPT 



;CHECK IF INTERRUPT 
;YES - SKIP 
;WAIT FOR INTERRUPT 
;GET RESULT MESSAGE 



; TEST IF DRIVE READY 
;yes - SKIP 
;SET RESULT MESSAGE 
^CONDITION AFTER DATA XFER 



;SET WAIT COUNT FOR 5 SECDS 
/GET DRIVE STATUS 

JTEST IF DRIVE READY NOW 
;YES - SKIP 
;DEC WAIT COUNT 
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SEQ 0086 



J* 

277 

"?! 

80 
81 



, p I in 

S 3162 053700 

023166 022300 

mm mttt 

023174 000774 

"176 012737 



mm mm 

mm mm 



002534 

000100 

"536 



000001 
003272 



002424 



20$: 



mi 



99$: 



BSCHK: 



2$: 

4$: 
5$: 



IV: 



012603 



002442 12$: 

15$: 
20$: 



BME 
MOf 

ERRHRD 
TRAP 

• WORD 

• WORD 

CLR 

fSf 



• WORD 
.WORD 

§bS 
88! 

HQ? 
NOV 
TST 



J2?SEC/R4 

ERRSWI 
T.CS 

8faiMi" M 

ERRSWI 

(SEi + /RjE 



^ IRROR SWITCH 

, _ ICK IF AMY ERR— 
ISO - SKIP 



RROR 



MOf 

RfS 

BAD SECT 
DESHD, ■ 
MOV 
MOV 
MOV 
CLR 
MOV 
CMP 
BNE 
MOV 
CMP 
BEQ 
MOV 
MOV 

hlh 

BME 
TST 

BEQ 

BIS 
BIS 
CMP 

BEQ 
BHI 
BR 
MOV 
BR 
CMP 
BGT 
MOV 




; CLEAR ERROR SWITI 
I REMOVE ENTRY FROl 
;RESTORE REGISTER: 



SOB ROOT STACK 



RSMI,(SP) 
j£SP),(SP> 



;TEST IF ERROR RETURI 

ERROR RKTORI 
;ADJDST FOR ERROR RETURN 



m 



NE. CHECKS IF SECTOR SPECIFIED IN CURCYL, 
ISTED AS BAD IN THE BAD SECTOR FILES. 
;STORE REGISTERS 



IIlT6,R0 
DESSEC\rRO 
R3)+,R0 

il 
8$ 

"IgBSFLAG 
3,#FBSFIL 
(Ip)+,R3 



;CLEAR FLAG 



, ,c G §ic£°fnL R ! , T 8»^" 0R¥ riLE 

;no skip to 



|r ALL 01 

,NO SKIP TO TBS 
;ELSE SET POIIT 
;CHECK IF ALL 

;YES - E~- " 

r 



R TO 
ONE 

"T 

_ER TO SOFTWARE FILE 
ONES 



UILD HEADER OF ADDRESS IN QUESTION 
OSITION CYLINDER 



;CHECK 



>VES 

>IISERT HEAD 1 

^fl2^ T TSfr8§RD I. FILE 

;SET ERROR FLAG 

;GO TO EXIT 
;DOKE BOTH FILES? 
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SEQ 0087 




000002 
000000 



002424 

000002 
007366 

mm 



002260 

mm 



000006 
000002 
002424 



mm 



000010 
030000 
002456 

mm 
mm 
uwn 

020000 

002122 
005143 



99$: 



RPTOP: 



3$: 



l$s 



002426 



002426 



002426 



002426 



2$: 

20$: 

22$: 



MOV 
MOV 
TST 

BNE 
ADD 
RTS 
MOV 
RTS 



)*,Ri 



|2,<SP) 



SP),(SP) 



;CHECK IF ERROR 
?YES - SKIP 

;ELSE BOMP ERROR RETURN 
;SET FOR ERROR RETURN 



REPORT OPERATION ROUTINE. PRINTS SUBROUTINE TRACE SEQUENCE AND 
OPERATION BEING PERFORMED PORTION OF ALL 

GES 



MESSAGES . 
R4,-(SP) 
SSINOX 

B |fMT9 £ #SEQMES 
fSEQMES.-fSP) 
|FMT9*-f SP ) 

SP.RO 
CSPNTB 
#6 f SP 

B IFMT16 £ SUBSTK(R4) 

SUBSf KtR4) i r-(SP) 
#FMT16 £ -(SP) 

#2,R4 
R4/SSINDX 

?l 1- — 

B #FMT4#ERHEAD £ #TSTL AB 
lTSTLAB/-(SP) 
ERHEAD/- (SP ) 

#FMT4 £ -(SP) 



/TEST SUBROUTINE INDEX 
;SKIP IF 

;SET INDEXER TO FIRST ENTRY 
;PRINT "SUBROUTINE CALL SEQ" 



;PRINT CALLING LOCATION 



;BUMP INDEX 
;CHECK IF ALL PRINTED 
LOOP IF NOT ALL PRINTED YET 

;PRINT ERROR HEADER 



r n i "j *— v £ 

^PP) 

dP/RO 
CSPNTB 
"*~,SP 
EKOP 



_.UD £ R1 

fl77741,Rl 
P/Rl ;TEST 

»1eEK0P/0PFLAG 

|RORWOP,OPFLAG 
|l4,Rl 



RORWOP,OPFLAG 



;CLEAR SK & RD OR WRT FLAG 



„ ..... 
FHT1 £ #MQPER#0P 

JPMSGS(R1) £ -?SP 
#MOPER # -(SP) 



RWOP,OPFLAG 
"MOPERcOPM 



rr L.Ai> /ULCiAK ;>iv & «u 
;GET COMMAND EXECUTED 
;STRIP ALL BUT FUNCTION CODE 
IF SEEK OPERATION 
;NO - SKIP 
; ELSE SET SEEK FLAG 
;test IF WRITE 
;NQ - SKIP 
;SET RD OR WRT FLAG 
; TEST IF READ 

;no - skip 

5SET RD OR WRT FLAG 

SGS(R" " ----- 



(Rl ) ;PRINT OPERATION 
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MB 8, 



2342 02 

2343 02 



K m 

I ill 



MACYll 

13112 

mm 



mm 

000010 

000016 
007777 

m 
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6SS 




9$1 



10$8 



000024 
020000 



002426 15$: 



SEQ 0088 



Ir|itb 

NOT 



PRINTB 
MOT 



IWT1 




JCHECK IF GET STATUS 
— Q - SKIP 

1ST IF RESET INCLUDED 



IS 



... IS 

;SET TO 



IP 

PRINT WITH 



#COMPOP,OPFLAG 

g|?LAG 



m 

Id* 



m 

R4 



? TEST 




RESET 

AMY OTHER OPERATION 

Off ERMINE WHICH ONE 
NTER 



SP^RO 
"SPNtB 



rift 



ill"- 

yELSE 




F 40 HEADER OPERATION 
KIP 

HINT IT 



EEK 



D,bESDIF,fSCNND,DESSGN,tHDWD,DESHD 



24 SP 

RofiwOP,OPFLAG 



>TEST IF READ OR WRITE SET 
;RO - SKIP 
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SEQ 0089 




mil 

00732? 



000020 

024474 



002504 



005157 

mm 



000010 

010141 

mm 

011056 

010403 
000003 

000010 

010407 
000003 

8888JS 



17$: 



RPTRES5 



3$: 



PRINTS 

MOT 

MOT 

MOT 

MOT 

MOT 

MOT 

MOT 

MOT 

MOT 

EMT 

ADD 

JSR 

NOV 

RTS 

REPORT 
PRINTS 



as? 

881 

MOT 

PRINTB 

MOT 

MOT 

MOT 
MOT 
MOT 

EMT ■ 

ADD 

CMP 

BEQ 

MOT 

CMP 

BNE 

MOT 

DEC 

PrSntb 

MOV 
MOT 
MOT 
MOV 
MOV 
EMT 
ADD 

PRINTB 
MOV 

MOT 
MOT 
MOT 
MOT 
EMT 
ADD 
SUB 



;CLEAR PARAM TABLE 
;RESTORE R4 



FOR ALL ERROR REPORTS. 



,R1 



fFMT22,#CYLWD,CURCYL,#HDWD,DESHD,#SECWD,DESSEC 

0ESS£C,-(SP) 
fSECMD,-fsH 
DESHD # -(|P1 

?8rcyC-(sP) 

KHgM 

SP £ R0 
CSPNTB 

REASON ROUTINE 
REASON PORTION 

!fRlsplSM # 

R1)+,R3 
; FMfl.LtMRSLT, 

CSPNTB 
#10, SP 

(R1)/#MNDRST 

#FMT11 € R4 

(R1)*,#MCYLQC 

||mT12,R4 

§4\#RESE3,(Rl)-» 

CRl)+£-(SP) 
#RESeL-(SP) 

P#R0 



;STQRE Rl 
> STORE R3 
? STORE R4 
;GET START OF PARAM 
IGET NUMBER OF PARAM 



(Rl) 



;PRINT NAME 



;TEST IF MESSAGE IS NO DRV STATUS 
;YES - SKIP REST OF REPORT 
;PRISET FOR FORMAT 11 
JCHECK IF REPORTING CYLINDER LOC 
>NO - SKIP 

; ELSE CHANGE TO FORMAT 12 
;DEC PARAM COUNT 
;IF - EXIT 
;REPORT IS VALUE 




* ; REPORT SB VALUE 



;DEC PARAM COUNT 
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SEQ 0090 



6$: 



BEQ 

PRIMTB 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

i85 

MOV 
MOV 
RTS 



fiMTl,#RESE5,(Rl{* F 




COIDITIOM 



; RESTORE REGS 



;RETURI 



REPORT PHYSICAL ADDRESS Of DEVICE ORDER TEST 

Af - ■■■ 

PI 
C 



ftpTREM: pI|mTB L #FM|il#BA§SBS^Liis,#DRVliAM / <B/RLDRV 



_ISB 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
EMT 
ADD 

REPORT 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

PRINTB 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
EMT 
ADD 

PRINTB 
MOV 
MOV 
MOV 

MOV 



r£drv*i, (SP > 

"DRVN AM#-(SP ) 



♦i> 



P#R0 
CSPNTB 

^mt6#f c^nam/#danam/#banam # #mpnam/#cylhd/#hdwd 
[banam,- 

IDANAM,- 
[CSNAM/-( 



«! 



4 



fpV 



(PMf§,#LABl,L.CS,L.DA,L.BA,L.MP 
•MP/-CSP) 

l-ba;-(sp) 

L.DA>-(SP{ 
L.CSf-(SPj 

(LABI ' 
PMT8 
p£rQ 
"SPNTB 



CSPNfB 

deshd;-(_ 
,-<$p 



ur.anu/-(SP) 
CORCYL € -iSP) 
T.MP 
T.BA 



#LAB2,T.CS/T.DA/T.BA,T.MP,CURCYL,DESHD 
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024524 



013746 002472 

013746 002466 

mm mm 

012746 000010 
010600 



000022 



SEQ 0091 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
EMT 
ADD 
RTS 



CLRPARM: 



2$: 



MOV 
MOV 

CLR 
DEC 
BNE 
MOV 
MOV 
RTS 



T»DA, 




PARAMETER BLOCK FOR REPORTING 

MOV R5,~(SP) 5STORE R5 

!RESP ARM/R1 ;GET ADDRESS OF BLOCK 

5,R5 ;SET COUNT 

Rl)+ /CLEAR WORD 

R5 ;DEC COUNT 

2$ ;LOOP UNTIL 

SrESPARM,R1 ;reset pointer 
|SP)*,R5 ;restore R5 



ASSEMBLY ROUTINES 
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23»OC?-7S 141 Sf 



IK1Y-7S lis 32 PAGE 2 



024524 



14 



2438 

J 

ill! 

m 

2445 



435 024700 



104020 

300 



24?32 HP3I 

24736 025002 

24740 020337 

24744 001411 



mm 
him 



015226 

mm 



000005 
000062 
015226 

002502 



177777 002544 



IInIub 



021116 



017454 
002544 
000377 

177777 002544 



002544 



85 



7$: 



10$: 

12$! 




|J|f|RElCE OF 



1 SEEK (PART 1) 



w £ ERR7 

, RCDDE 

j5jR3 R 
PC/GS'tIt 

R3#T. STAT 

16§ 



ffliV 

p II l a1SI 



HEADER 



>SET -1 INTO DIFF 
>SET POINTERS 

;GO CHOSE HEAD 



TlS! 



AUGMENT FOR -1 SEEK 



Tl.l: 



>GET POSITION 

>CHECK IF IN ERROR LOOP 

?RO - SKIP 

JCHECK IF CURRENT * MEM 
)CHARGE DIF 

iff ~ c " 

} AT Mi 
ISKIP 

JjEST |F CURRENT AT 
Uf CYL 0/ MAKE NEXT SEEK 

|io sili MEW ^ YL ( ** 

J«T STATUS 



JCHECK IF CURRENT « 

-~ SNAP OLD AND 
fc TO SEEK 

NGE DIFF AUGMENT FOR OPPOSITE DIR 

CURRENT INTO OLD 
CK IF CURRENT AT 255 

!AX K £?L, MAKE NEXT SEEK REV 



FWRD 

OR -1) 



;SET EXPECTED STATE 
ICHECK || STATE COUNT 

STATE ERROR 



;EXIT TEST 
;SET E 



EXPECTED STATE 

;SET WAIT COUNT FOR 5 MS 
;GET STATUS 

;IS STATE 5? 
;YES-SKIP 
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5044 
"54 



104001 



MACY11 

14139 



000001 



000062 
020650 



30AU052) 22-NOV-78 
*TEST 1 



DEC 



16:32 PAGE 2-1 
•♦DIFFERENCE 



000002 002440 



002540 

000001 
017414 



002540 



14$: 



16$: 



60S: 

ENOSUB 

L10021: 



BEQ 
WAITUS 
MOV 

W 

ERRHRD 

TRAP 

• WORD 

.WORD 

MOV 

JSR 

60$ 

MOV 



23$: 
!ll65|: 
LI §020: 



EMT 

ESCAPE 
EMT 
• WORD 
DEC 
BEQ 

BIT 
BNE 
JSR 
24$ 
BR 



ll,R0 
CSWTU 

10§.*#ERR7 
TSERCODE 

"lYWAIT 
#2/ERRSWI 



#50.,R1 
PC,RDY""" 



CSESUB 
TST 

CSESCAPE 
L10020-. 
TEMPO 
24$ 

#BIT0,TEMP0 
23$ 

PC/SWAPHD 

T172$ 



C$ETST 



OF 1 SEEK (PART 1) 



;DEC WAIT COUNT 
;SKIP IF 



; REPORT STATE ERROR 



>SET WAIT COUNT FOR 5 MS 
;GQ WAIT FOR DRIVE READY 

;INIT ERROR SWITCH 



;EXIT TEST IF ERROR 



;DEC PASS COUNT 
;SKIP IF 0-DONE 

; TEST IF PASS=2 
;NO-SKIP 

;GO SWAP TO HEAD 1 OR END TEST 
> ABORT RETURN 
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III 



MACYU 30AC1052) 22-NOV-78 
14:39 *TE3T 1 




021116 



000001 



002434 
002540 



002544 



002544 



002544 



.SBTTL 

BG1TST 



-1125b 



7$: 



10$: 



16s 32 PISE 2-2 

♦^DIFFERENCE OF 1 SEEK (PART 1) 



SEQ 0094 



♦TEST 2 
MOV 

MOV 
MOV 

MOV 
MO? 



♦♦DIFFERENCE OF 

;test 2 



1 SEEK (PART 2) 



(P2T02E C ERHEAD J3BI ER1 

pc;gstatr ;GET ST 



JUT 

PC/GSTATR 

PC,CHOSHD 



EMT 

JSR 



CSBSUB 
PC,GETPOS 



OOP 



BNCOMPLE 

BCC 

JSR 
BR 
MEG 
MOV 
CMP 
BNE 
MOV 
BR 
TST 
BNE 
MOV 
ADD 
JSR 

S8i 

JSR 
60S 



JSR 
60' 



104443 



60$ 

MOV 
SUB 
TST 
BEQ 
MOV 
SUB 
CMP 
BEQ 

ERRHRD 
TRAP 



_CiIMLP 3$ 

||4),<R3) 
||,OMSWAP 
TEMP2 

g-l,TEMP2 
14) 

f *TEMP2 
EMP2,(R3) 
PC,XSEEK 

P^RDYWAIT 

PC # G£TPOS 
Rl 

6n R1 



Lsis" 
10$ 
14), Rl 

" -Rl 



R4),R 



ERROR HEADIR 

-Asi_eoH| T 

LEAR DRIVE 



T2S! 



>GO CHOSE HEAD 

Dirr 



Jlli SigIiiIIS EMf T0 - 1 (REVERSE) 



T2.1S 



GET CURRENT POSITION 
CHECK If IN ERROR LOOP 

MO - SKIP 

g|ECK s || p CURRENT * NEW 

ELSE ImAP OLD AND NEW 
1KIP TO SEEK 



C¥L, 



AUGMENT FOR OPPOSITE DIR 
INTO NEW 
RENT AT 255 

,AKE NEXT SEEK REV 





CHANGE DI _ 
MOV CURRENT 

CHECK IF CUR 
NO - SKIP 
AT MAX C~ 

f li? IF CURRENT AT 
NO - SKIP 

AT CYL 0, 

ADD DIFF TO NEW CYL 
DO SEEK 

SET WAIT COUNT FOR 15 MS 
WAIT FOR READY 

STORE POSITION 

GET OLD POSITION 

SUBTRACT FROM NEW POINTER (FORWARD) 



AT CYL 0, MAKE NEXT SEEK FWRD 

DIF — " 



(♦1 OR -1) 



3R SEEK REVERSE 



CHECK IF SIGN FQRWAR 
YES-SKIP* ELSE SUB ~ 
GET NEW CYLINDER 
SUBTRACT FROM OLD CYL 
CHECK IF RESULT IS DIFFERENCE OF 1 
YES-SKIP 

ELSE REPORT ERROR 



ASSEMBLY 
CZRLDB.P 



ROUTINES MACY11 301(1052) 22-NOV-78 

11 23-DCT-78 14:39 ♦TEST 2 



°25266 
025270 
025272 
025272 

831188 

025300 
025302 

81118? 

025306 
025312 



8111] 

o; 



8SS.SH 

012737 000002 002440 



104003 



. 002540 

001410 

032737 000001 
001003 

004737 017414 



nm 



002540 



16:32 PAGE 2-3 

♦♦DIFFERENCE OF 1 SEEK (PART 2) 



• WORD 
. WORD 



MOV 



EMT 

ESCAPE 

EMT 
. WORD 
DEC 
BEQ 

BIT 
BNE 
JSR 
30$ 
BR 



mi5 V 



SEQ 0095 



201 
ERR8 



#2,ERRSWI 



CSESUB 
TST 

CSESCAPE 
L10022-. 
TEMPO 
30$ 

fBIT0 # TEMP0 
20$ 

PC/SWAPHD 

T187$ 



C$ETST 



;ISIT ERROR SWITCH 



?EXIT TEST IF ERROR 



;DEC PASS COUNT 
;EXIT IF DONE 

;TEST IF PASS 1 OR 
;YES-SKIP 

;GO SWAP TO HEAD 1 
;ABORT RETURN 
;LOOP 



OR END TEST 



MACY11 
14139 



SEQ 0096 




006244 002434 

mm 

017370 

016570 



nun 002524 

000000 



015226 

mm 



000012 



000226 
020650 

021116 
002526 



000002 002440 



am 

T197$: 

BGMSOB 

8$: 

9$3 
12$S 



*f EST 3 



gg|S| GUARD BAND DETECTION 



104003 
104010 



m 

ENDSUB 

L10025: 



MOV 

in 

CLR 
JSR 

T1965$ 



EMT 
MO 



MO 

iSoRD 
BR 
DEC 
BEQ 

WAITUS 

MOV 

EMT 

BR 

MOV 

JSR 

60$ 

JSR 

m 

BEQ 
ERRHRD 
TRAP 
• WORD 
.HORD 

MOV 



mmi 

PC,CHOSHD 
Pc^POSHDS 



IT 



ERHEAD I SET ERROR HEADER 
TEST 



Y3:: 



>GO CHOSE HEAD 

* FOR POS- 

riOR HEADS 



jjjLEAR^FOR^PtiSITION TO 



HCVL 



li,lSTAT jSlf DilvE STATUS 



CSBSOB 
|-1 £ 1EU- 

PCXSEEK 

|i6vMSK/ 

r 1ST AT 

"WBfcB 

ERR4 



ER&4 



T3.1I 



|SET rOR GUARD BARD SEEK 
IDO SEEK 



r66d§ 



I REPORT 



ME MESSAGE PTR 
NDITIOR MESSAGE PTR 
READY ERROR 



fj SiD 

?C/r6t8ait 
pc,getpos 

CURCYL 

lfl. £ #ERR8 
|i| RCODE 

ERR8 

#2,ERRSHI 



IEXIT TEST 
)DEC WAIT COURT 

iskip ir o 



I LOOP 

ISET WAIT COURT FOR 15 MS 

IHAXT FOR READY & REPORT IF ROT READY 



J GET POSITION 

JCHECK IF HEADS STILL AT 



EMT CSESDB 

ESCAPE TST 

EMT C$ESCAPE 



iyes-skip 
|else report cylinder error 



UNIT ERROR SWITCH 



IEXIT TEST IF ERROR 




23-OCT-78 14:39 



017414 
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*TEST 3 



• HORD 
JSR 
17$ 
BR 



EMT 



**OUTER GUARD BAND DETECTION 



L10024-. 
PC/SWAPHD 



SEQ 0097 



T197$ 



C$ETST 



IGO SWAP TO HEAD 1 OR END TEST 
I ABORT RETURN 
IREDO TEST 



ASSEMBLY ROUTINES 
CZRLDB.PU 



MACY11 30A(1052) 22-N0V-78 16:32 PAGE 2-6 

14:39 *TEST 3 **OUTER GUARD BAIO DETECTION 




SEQ 0098 



"INCREMENTAL FORWARD SEEK HEAD 

;?EST 4 



ERHEAD 



002440 



60S: 
EHDSOB 

L10027! 



CMP 
BLO 
MOV 



ms 

PC,CHOSHD 

mm-. 

L0LIMW,R5 
PC/POSHDS 



CSBSUB 
PC,GETPOS 



5$ 

CORCYL,NEWCYL 

PC,OMSWAP 

CuRCYL#IEMC¥L 
MEWCYL 

PC/XSEEK 

Ic/RDfwllT 

PC,¥ERPOS 

ALLSEC,MISWIW 
RDALHD 
PC/VERHDR 



HILIMW/NEWCYL 

T206S 
#2/ERRSHI 



1PM 





T4SS 



{?gs5 H S?' T 8« D ,» HEAD 



;CLEAR TO POSITION HEADS TO LOLIMIT 
;POSITION HEADS 



T4.1: 

;GET POSITION 

;CHECK IF IN ERROR LOOP 

;NO - SKIP 

POSITIONED AT DESIRED LOC 
NEW AND OLD CYLINDERS 



;CHECK r 
}NO - SKIP 

mil sAf 

;place current into new 
;bump for one cylinder seek 

|D0 SEEK 

;SET WAIT 
>WAIT FOR 

;go ? erify positon 



TIME 15 MS 
READY 



;TEST 

;no-sk 



s 



check all sectors 
>GO READ all headers 
;GO verify header 



jcheck if hilimit reached 
5mo-loop 

;init error switch 



csesub 



ASSEMBLY ROUTINES MACY11 30A(1052) 22-NOV-78 16:32 PAGE 2-7 

CZRLDB.PU 23-OCT-78 14:39 *TEST 4 **INCREMENTAL FORWARD SEEK HEAD SEQ 0099 



2631 025756 T2065S: 

2632 025756 ENDTST 
025756 L10026: 

025756 104001 EMT C$ETST 



ASSEMBLY ROUTINES MACY11 30AU052) 22-NOV-78 

CZRLDB.PU 23-QCT-78 14l3f *TIST 4 



16:32 PAGE 2-8 

** INCREMENTAL FORWARD SEEK HEAD 



1*1 

264_ 
2644 

2645 

M 

m 



til 



itj! 



♦TEST 5 



M 

mm 



026140 
026144 

WW 



26164 

6166 



01402 

mm 

m 
m 

104020 



023737 
103726 
012737 



104003 



mm 

021116 



002526 
017454 

002526 

mm 

021244 

000002 
021364 

020262 

013374 
000002 



002434 



2$: 

BGNSUB 

T216$: 



002524 

002524 5$: 
7$i 



002426 



002524 US! 

002440 60S: 

ENDSUB 
L10031: 

T2165$: 



MOV 

JSR 



1 

TST 



J6S $ 



.WORD 
MOV 



mm 

pejGsfifi 

PC,CH0SHD 
JjESHD 

C$IxiT 

L10030-. 

HILIMW,R5 

PC,POSHDS 



RHEAD 



REMEMTAL REVERSE SEEK HEAD 



EMT 

JSR 
60S 

INLOOP 

EMT 

ggCOKPLE; 

CMP 
BNE 
JSR 
BR 
MOV 
DEC 



ggBSUB 



GETPOS 



JSR 

6or 

MO! 
JSL 
60$ 

JSR 

60$ 

BIT 
BEQ 
JSR 
60S 
JSR 
60$ 

CMP 

BLO 

MOV 



5INLP 

I 5$ 
CURCYL,NEWCYL 

||,ONSWAP 

CURCYL,NEWCYL 
NEWCYL 
PC,XSEEK 

IcvSoYwllT 



PC # fERPOS 



PC,R 



LLSEC/OPFLAG 
, RDALHD 
PCVERHOR 



LOLIMW, NEWCYL 

T216S 

#2,ERRSWI 



C$ESUB 



>SET ERROR HEADER 
^INITIALIZE TEST 
;CLEAR DRIVE 



T5:: 



;GQ CHOSE HEAD 
>TEST IF HEAD 
;YES - SKIP 
JELSE EXIT TEST 



SELECTED 



;SET TO POSITION HDS TO HILIMIT 
POSITION HEADS 



T5,l: 

;GET POSITION 

;CHECK IF IN ERROR LOOP 

>NO - SKIP 

JCHECK IF POSITIONED AT DES LOC 
>NO - SKIP 

>ELSE SWAP OLD AND NEW CYLINDERS 

IPS} CURRENT INTO NEW 

;DEC FOR ONE CYLINDER REVERSE SEEK 

;SEEK TO IT 

;SET WAIT FOR 15 MS 
;WAIT FOR READY 



j verify position 

;test if use all sectors 

;N0-SKIP 

;else read all the hdrs 
> verify the headers 



;CHECK IF REACHED LOLIMIT 

>N0 - LOOP 

;INIT ERROR SWITCH 



ASSEMBLY ROUTINES MACY11 30AC1052) 22-NOV-78 16:32 PAGE 2-9 

CZRLDB.PU 23-OCT-78 14:39 *TEST 5 **INCREMENTAL REVERSE SEEK HEAD 

ENDTST 

L10030: 

104001 EMT C$ETST 



ASSEMBLY ROUTINES 
CZRLDB.P11 23-OCT-78 



tfACYll 30AU052) 22-NOV-78 

14S39 *?EST 5 



163 32 PAGE 2-10 

** INCREMENTAL REVERSE 8S1S? HEAD 



SEQ 0102 



026 



731 026410 



if 



oooiil 

104020 

11 



II 

004737 

mm 

026402 



p 

026402 

mill 
11! 



006334 

sum 

m 



013400 



021116 



002526 
017454 

m% 

016070 

021244 

000002 
021364 
020262 

013376 
000002 



002434 



mm mm 



002524 
002524 



013372 



002524 
002440 



am 



®TEST 6 



bInsub 

T227$: 



5SS 
7$: 



9$: 



60$: 

EMDSUB 



"INCREMENTAL FORWARD SEEK HEAD 
;TEST 6 



tP2T06E,E 

mm 




ERHEAD 



DESHD 



EMT 
JSR 

INLOOP 

EM? 

BNCOMPLE 

BGC 
CMP 



MOV 
INC 

JSR 

38$ 

JSR 

JSR 
60S 

BIT 
BEQ 
JSR 

m 

60$ 

CMP 
BHI 

MOV 



cSrCYL/IEHCYL 

" YL 



CSBSOB 

PC/SETPOS 

gORCTL/MEHCYL 

PC,OfiSWAP 
c8 

NEWCYt 

PC,XSEEK 

Ic/RdySIit 
pc,verpos 

|allsec,mismim 

P?,RDALHD 
PCVERHOR 

HILIMW/NEWCYL 
T227S 

#2,ERRSWI 



;SET ERROR HEj 



nr 



i 

fiis 



ITIOM HQS TO LOLIMIT 



SPECIFIED 



;N0 - SKIP 
>TEST 

;mo - 

;ELSE 



EXIT T 



IS HEAD 

EST 



T6.1: 



;RO - SKIP 



'OSXTION 
SRROR LOOP 



AT DESIRED LOCATION 
AID NEW CYLINDER 

REM 

ONE CYL FWRD SEEK 



CURRENT INTO NEK 
N8HCYL FOR 



;do SEEK 



15 MS 

>VERIFY POSITION IS CORRECT 



jSEf WAIT COUNT 
>WAIT FOR READY 



;CHECK IF USE ALL SECTORS 
;NO-SKIP 

;ELSE READ ALL HEADERS 
; VERIFY HEADERS 



;CHECK IF DONE 
- ' " " OOP 



;no 
;INIT 



ERROR SNITCH 



ASSEMBLY ROUTINES MACY11 30AC1052) 22-NOV-78 16:32 PAGE 2-11 

CZRLDB.P11 23-0CT-7B 14:39 *TEST 6 "INCREMENTAL FORWARD SEEK HEAD 1 SEQ 0103 

f31 026410 L10033: 

026410 104003 EMT C$ESUB 

"6412 T2265S 



2641 

Nil 



mil. 

104001 EMT C$ETST 



ASSEMBLY ROUTINES 
CZRLDB.P11 23-OCT-78 



MACY11 30AC1052) 22-SOW-78 16S32 PAGE 2-12 

14230 *TIST § **IICREMil§TM, rOftiAftD SEEK. HEAD 1 




11! 



mm 

000003 
000001 
015226 

mm 



000012 

mm 

021244 
000002 

017414 



002434 



•SBTTL 

BGITSf 



T233$S 



BGNSUB 



002524 



000000 7$S 



9$S 



*TESY 7 



**IiIER GUJRD B AID DETECTION 
YES " 



MOT 
JSR 

tlb s 

MOV 
JSR 

f2365$ 



EMT 

MO? 

k 

eIIrrd 

TRAP 

• WORD 

• WORD 

BR 
DEC 



002440 



60S 



wa!yds 

MO? 

EMT 

BR 

ill 

MO? 



JYESY 7 
.ERHEAO 



|P2T07E £ ERHEAO ISET ERROR 

knvM Ileum 



SET ERROR HEADER 

g fESf 

?E 



T7 3 3 



PCgCHOSHD 

?c,IoSIds 



CSBSUB 

muai 

*3.,R1 



WCYL 



|DRDTMSI # SLCS(12^ 
PC/CSTAT 



;I66de R4 



is 



i. 



10.,R0 
SWTU 



2777 
2778 



15S: 
T2365S: 



EMT 

ESCAPE 
EMT 



PC,VERPOS 
#2,ERRSWI 



CSESUB 
TST 

CSESCAPE 
L10034-. 
PC/SWAPHD 

T233$ 



>CQ CHOSE HEAD 

>SET FOR POSITION TO 255. 

^POSITION HEADS 

T7.1I 

)S8 T I?° R IRNER 6UARD BAiD SEEK 
;SET WAIT COUNT 3 MS 
IF READY 

?E STATUS 

MESSAGE PTR 
"""CM ME 
Y ERR 



mmi 



0M_M|S|AGE PTR 



jexiy test 
;dec wait count 

1SKIP IF 
>WAIT 100 US 



;LOOP 

;SET WAIT COUNT 15 MS 
;GO WAIT FOR READY 



;GO YERIFY POSITION IS 255 
>INIT ERROR SWITCH 



;EXIT TEST IF ERROR 



;go swap to head i or end test 
; abort return 

;REPEAT THE TESTS 



ASSEMBLY ROUTINES 



CZRLDB.P11 

2779 026612 
(3) 026612 

(3) 026612 



23-OCY-78 14:39 



MACY11 30A(1052) 22-NOY-78 



104001 



*TEST 7 



ENDTST 
L10034: 



EMT 



16:32 PAGE 2-13 

♦•INNER GUARD BAND DETECTION 



C$ETST 



ASSEMBLY ROUTINES MACfll 301(1052) 22-IOI-78 16:32 PAGE 2-14 

CZBLDB«P11 23-0Cf~78 14239 *T EST 7 * & IMHER GUARD BHD DETSCtiOM 




|||R|MEMfIL REVERSE SEEK HEAD 



p8l§ 

027036 
027036 



023737 

mm 



002434 



mm 



002526 002524 
017454 

002524 



mm 

021244 

000002 013372 



013374 002524 
000002 002440 



ilisuB 

T247S! 



5$: 

7$S 



9$! 



60S: 

ENDSUB 

L10037: 



MQV 

JSR 

^465$ 

CL" 
My 
JS. 
T2465S 

m 

BEQ 

tsf 

i;It 

EMT 
.WORD 



#P2?08E,pHEAD | SET ERROR HEADER 



DESHD 

HILIMW#R5 

PC/POSHDS 

HEADW 

Liooli-, 



EMT 
JSR 
60S 

INLOQP 
EMT 

BNCOMPLE 
BCC 
CMP 



GETPOS 



5$ 



MO? 
DEC 
JSR 
60~ 
MO 

JSR 

if? 

js! 

60S 

#! 

CMP 
BLO 

MOV 



1 

CURCYL/NEWCYL 

PC,ONSHAP 
^1 

CORCYL/NEtfCYL 

NEWCYL 

PC/XSEEK 

?C/RDYWAIT 

PCVERPOS 

|ALLSEC,HISWIM 
P?,RDALHD 

pc/ yerhdr 

lol^mw/newcyl 

I^eIrsmi 




01 HDS AT HILIMIT 



F ISeId SPECIFIED 
"EAD SPECIFIED 



ECT HD 1 

-~CIF 



IS 



TEST 



;get CURRENT POSITION 
;CHECK IF IN ERROR LOOP 
>NO - SKIP 



;CHECK IF POSITIONED AT DESIRED LOC 
;no - SKIP 

llfefl SMiP 

>mov cur to hen 

;dec newcyl for i cyl re? seek 

;DO SEEK 

SSET WAIT FOR 15 MS 
;W AIT FOR READY 

; VERIFY POSITION 

ALL SECTORS 

HEADERS 

; VERIFY HEADER 



|E||p SNAP OLD AND NEW CYLINDER 



;test IF A 
}readaZl 



;CHECK IF AT LOLIMIT 

;ND - LOOP 

?INIT ERROR SWITCH 



ASSEMBLY ROUTINES MACY11 30AC1052) 22-NOY-78 16:32 PAGE 2-15 

CZRLDB.P11 23-OCT-78 14:39 *TEST 8 "INCREMENTAL REVERSE SEEK HEAD 



>lli 81?... 

;30 027040 

3) 027040 

3) 027040 



036 104003 EMT C$ESUB 

040 T2465S: 



104001 EMT CSETST 



ASSEMBLY ROUfSigS MACYll 
CSRLDB-PU 23~OCf-7§ 14s3§ 



3§ICi®52) 22-fO?-78 16132 PAGE 2-16 
®?1S? f **S!IK TESTS 



n 



865 



2878 



060 



if! 6 



ii i 



104002 
104020 



iO 

54 " 



104003 



fiii 
w 

021116 

mm 
mm 

mm 

013374 
002S24 
013376 



021116 

002S26 

mm 



l\ mm 

004737 

mm 



4227 021244 
000002 



027266 104010 
027270 000044 
027272 023737 013376 



002434 



002524 



aim 



f256$S 
Y258$S 



013374 
002524 
013376 9$: 
002524 



002524 



002440 



002524 



f257$S 



m 



SOB 



13$: 



60S: 

EIDSUB 
L1004U 



*?£SY 9 
MOf 

c 

12565$ 
J 5 

4 

13565$ 



;tsst 9 



mm 

PCVCHOSHD 

warn 



SEEK TESTS 
RHEAD 



565$ 



m 

gsi 

CMP 

m 

CMP 



PC,GETPOS 
CORCYL/HEMCYL 



iff 



LOLIMH/NEUCYL 
" iCYL/HILIMM 

LIMS,IEIfC¥L 



EMT 

INLOOP 
||C0MPLE 

li 

sit 

-n 

JSR 
60$ 
MOT 



C$BS0B 
INLP 

$ 



13$ 
JSETPOS 
CORCYL # IEVCYL 



EMT 

ESCAPE 
EMT 
• WORD 

CHP 



IcfoiSMAP 
PCjxSEEK 

lcJ88fifif 
PC,YBRPOS 

#2,ERRSBI 

C||SUB 

CSESCAPE 
L10040-. 
HILIMU/NEHCYL 



ifhf V 
&3fiH!ft. , aK,n.'*"" 

SET CURRtNT POSITION 



IELSE SE 



C0IR1 

5 



MEN 

ABLE OP SEEK OIFP 



'fOLIMIT 

1|H DIFFERENCE IS IN BOUNDS 

ifliil POSITION 
AT OR PAST LOLIMIT 



TO LOLIMIT 

AT HILIMIT OR GREATER 
FOR HILIMIT 

T9*l: 



ICHECK IP II ERROR LOOP 
>N0 - SKIP 

|61T CURRENT POSITION 

| CHECK I| HEADS At DESIRED POSITION 

|||s| s ||ii C ORIENT AID MEM CYLINDERS 

J SET WAIT COONT 

jnait for ready 

1VERIPY POSITION 
UNITIALIZE ERROR SNITCH 

;EXIT TEST IF ERROR 

;CHECK IF SEEK MAS TO HILIMIT 



ASSEMBLY ROUTINES 
CZRLDB.P11 23-0CT-78 




MACY11 30A(1052) 22-NOY-78 
14:39 *TESY 9 



BSE 
MEG 
BR 
CMP 
BNE 
CMP 
BNE 



013374 
000377 
017414 



002524 15$: 



T2517$S 



104001 



T2565S: 
ENDTST 

L10040: 



T2565$ 

BR 



16132 PAGE 2-17 
**SEEK TESTS 



g; 7 

IoLIMW,NEWCYL 
T257$ 

PC,SWAPHD 

T256$ 



;N0 - SKIP 

JELSE SET R5 TO REPEAT DIFF IN REVERSE 

; TEST IF LAST SEEK HAS TO LOLIMIT 

;N0 - GO DO SEEK TEST 

;CHECK IF ALL TABLE DIFF USED 

;no - skip 

;g0 snap to head 1 or end test 

; ABORT RETURN 

J REP EAT TEST HEAD 1 



C$ETST 



ASSEMBLY ROUTINES 
CZRLDB.P11 23-0CT-78 



MACYll 
14139 



301(1052) 22-iOf~78 
*?ISf 10 



16:32 PAGE 2-18 

®®ragM&g0 oscillatiic seek 



SEQ 0110 



293? 
(3) 




104003 

104010 



0650 
021244 
002532 

mm 

013374 
000002 



002434 



013372 



013372 
002524 



002524 



T266I: 

2$s 
5$: 

T267$x 

8GIS0S 



013372 
002524 
002440 



18$: 



*fEST 



8HEID 



nuv 

as 



665$ 



12665$ 




**FOR*ARD OSCILLATIIC SEEK 



|§5$ 



DLIMIUgEWCYL 

C/XSEil 



PC/GETPOS 

R5/1EMCYL 

C$BSUB 

IMLP 



EMT 

IWLOOP 

EMT CSINLP 

l!!g 0M,,LE Il s 185 

JSR 

til 

m 
m 

m 



PC/GETPOS 
CORCYL/IEICYL 



iil 

BIT 

BEQ 

MOV 

BR 

MOV 



EMT 

ESCAPE 
EMT 



,OISMAP 

PC/XSEEK 

PC/YERPOS 

DESSGI 

iSlCYL 
#LOC¥L # M 



LOLI 



ISMI8 
MV/NEVCYL 



18. 
#2,ERRSWI 



CSESUB 
TST 

C$ESCAPE 



110 - SKIP 

jlh.IT 



TlOll 



IC1D 



LOVER LIMIT 



;GET HEAD POSITIOI 
JLOAD IBM CYLINDER 



? CHECK If IB 
JMO - SKIP 
JfGET POSITION 
JCHECK IF HEADS 

>io - stir 



IRTO IEHCYL 
T10.1: 

ERROR LOOP 



Af DESIRED LOC 



JSNAP OLD AID REW 

;do SEEK 

imsm am 120 Ms 

;YERIFY HEAD POSITIOI 

>YEST IF JUST SEEK REY 

lIEsE'slf TO SEEK TO 
ICHECK IF LO LIMIT SPEC'D 

;io - skip 

jelse set lom limit for seek 



;init ERROR switch 



;EXIT TEST IF ERROR 



ROOTI 

Pll 




MES MACY11 30AC1052) 22-MOY-78 16:32 PAGE 2-19 

23-OCT-78 14139 *TEST 10 **FORWARD OSCILLATIIG SEEK 



SEQ 0111 



020000 013372 



000400 



017414 



20$: 



104001 



T2665S 
ENDTST 

L10042: 



• WORD 

BIT 
BIE 
INC 

CMP 
BNE 
JSR 

T2665$ 

BR 



L10042-. 
tHICYL/MISHIW 

&* 

PC/ SWAPHD 
T266$ 



;TEST IF UPPER LIMIT SPEC'D 
>YES - SKIP 
;B0MP R5 

>ALL CYLINDERS DONE 

;NO - GO DO NEXT CYLINDER 

JGO SWAP TO HEAD 1 OR END TEST 

; ABORT RETURN 

;GO DO TESTS 



C$ETST 



ASSEMBLY ROUTINES 
CZRLOB.P11 23-OCT-78 



MACY11 

14S 39 



30AC1052) 22-B0? 

•TEST 11 



-78 



16X32 PAGE 2-20 

**M¥EME OSCILLATING SEEK 




104003 
104010 



002434 

mm 

002524 
013372 



021116 

002S26 

mm 

021244 
002532 

tma 

013376 
000002 



T275$S 

2$s 

5$! 

T276$: 
BCMSUB 



002524 



002524 
013372 



002524 
002440 



18$: 



*TEST 11 



MOV 

JSR 
JSR 

111 659 

B?T 
BEQ 
MOT 
MOV 
BIT 
•l 



60S: 

ENDSUB 
L10045: 



RHEAD ) 



¥L 
WIW 



WW™ 1 

OCVL/MISWIW 



n 

My 

n 

s 



65$ 

65$ 
65$ 



PC/GITPOS 
R5/NEWCYL 



EMT 

INLQOP 
EMT 

BNCOMPLE 

BCC 



18$ 



JSR 
60S 
CMP 
BNE 
JSR 
JSR 
60$ 
MOV 
JSR 

ssi 

m 

88$ 

BIT 
BEQ 
MOV 

BR 
MOV 



C$BSUB 
C,|INLP 

18$ 

PC/GETPOS 

CURCYL/NEWCYL 

18$ 

PC/OWSWAP 
PC/XSEEK 

9c?r8v6aIt 
pc/verpos 

DESSGN 

|^§5. /NEHCYL 
iHICYL/MISHIH 

HILIMN/NEWCYL 

#2/ERRSHI 



EMT CSESOB 

ESCAPE TST 

EMT C$ESCAPE 



E OSCILLATING SEEK 
ERROR HEADER 



UNITIALIZE TEST 
;CLEAR DRIVE 

;GO CHOSE HEAD 

LIMIT SPEC* 



55. 
LI 

UPPER LIMIT 



OR FIRST SEEKS 
LO LIMIT SPEC'D 

LIMIT 



sSEsE SE 

IMP 

>GET POSITION 
;SET FOR NEXT SEEK 

;CHECK IF IN ERROR LOOP 

;NO - SKIP 

JELSE GET POSITION 

;CHECK IF AT DESIRED CYL 
>NO - SKIP 

;ELSE SNAP OLD AND NEW CYL 

>DO SEEK 



Tll.l: 



>SET WAIT 
;HAIT FOR 



FOR 120 MS 
READY 



; VERIFY POSITION 

JCHECK IF JUST SEEK FWD 

>YES - SKIP 

;ELSE SEEK TO TO 255 

;TEST IF HILIMIT SPEC'D 

>NO - SKIP 

J SET TO UPPER LIMIT 

;INIT ERROR SWITCH 



JEXIT TEST IF ERROR 



ASSEMBLY ROUTINES 
CZRLDB 




MACY11 30AC1052) 22-NOV-78 16:32 PAGE 2-21 



14:39 



040000 013372 



017414 



*TEST 11 



104001 



20$: 



T2765 
ENDT" 
L100 



5$: 



.WORD 

BIT 

BNE 

DEC 
BPL 
JSR 

T|765 $ 



**RE¥ERSE OSCILLATING SEEK 

L10044-. 
fLOCYL/MISWIW 
20$ 

R5 



EMT 



T276S 
PC/ SWAPHD 

T275$ 



C$ETST 



;test if lolimit specd 

?YES - SKIP 

/dec cylinder count 
;if still positive/ do seeks aga 
igo swap to head 1 or end test 



} ABORT RETURN 

;loop again 



issembly routines 

C£RLD8»Pll 23H3CT-78 




30IC1O52) 22~iOW~78 
•TEST 12 



16s 32 PISE 2-22 
**SgEtC f IMIIG 



SEQ 0114 



002434 



»SBTTL 
BdMTSf 



it! 



4$ I 



002524 
002656 
002560 

881118 



8$: 



9$: 



17$: 




T.CS 

128 



■ T12S S 

J SET ERROR ' HEADER 
Ifllf IF piss 
1 10 - SKIP 

;f|Sf IF^|JMUAL fESTS HERE RUM 
I ELSE*" EX If fESf 
""I DRI - 



VE 



KLSAR TIMER STORACE 



PASS CQBfffgR 
_,0» HEADS If 
EEIC 

;SET Mil? FOR 300 MS 
JM&IT F3i READ? 

?¥erif¥ position 
;go chose head 

;set ptrs for 1 cyl fwd outer timer 



2.,/ERR6 



;SET NEWCYL TO CYL 1 
>SET COUNTER FOR SEEK LOOP 
;BUILD READ HEADER COMMAND 



;do seek build but do not start 

/load rl registers 
;store ro 

;mait for interrupt 
itest if interrupt 

3YES SKIP 

;hait for interrupt 

;GET MESSAGE POINTER 



;CHECK IF ANY ERRORS 
}MQ - SKIP 



ASSEMBLY ROUTIIES 
CZRLDB.P11 23-OCT-7 



3073 
3074 



3078 
3079 

ml 



nn 
\m 

3098 

IS! 

hi 



030416 
030420 

mm 
mm 

030442 

llllll 

030450 

03045" 




MACY11 301(1052) 22-10V-78 16:32 PAGE 2-23 
14:39 *f EST 12 **SEER TIMING 



SEQ 0115 



mm 

104052 



002656 

017454 

000470 
"0470 




14$S 



003720 



002560 002456 

021244 



15$: 
16$: 



18$: 
10$: 



002654 
002524 



002524 
002654 



24$: 



TRAP 

• WORD 

* WORD 
JMP 

WAITUS 

MOV 

EMT 

GETTIM 

EMT 

MOV 

MOV 

MOV 

JSR 

m 

BEQ 
ADD 

ADC 
BR 
ADD 
ADC 

DEC 

318 

BR 

SUB 

SUB 

MOV 

CLC 

ROR 

ROR 

CLC 

ROR 

ROR 

DEC 

BNE 

INC 

CMP 

BNE 

MOV 

JSR 

65$ 

MOV 

JSR 

65$ 

JSR 

65$ 

MOV 

MOV 

MOV 

MOV 

MOV 

JMP 

CMP 



TSERCODE 
1202 
ERR6 
65$ 

DONE 

TEMP8,RLCS(R2) 




PC/VERPOS 

DESSGN 
15$ 

R5,(R0> 

ilV 

R5^(R3) 

count 

18$ 

PC/ONSWAP 
6,R5 



an 



m 

10$ 

PASCNT 
|J<PASCNT 

|127. £ NESCYL 
PC/XSEEK 

PC/VERPOS 

#OFMID#R0 
fOFMIDU,Rl 
fORMID* R3 
#ORMIDUjrR4 
#128., NEWCYL 



SCLEAR INTERRUPT FLAG 
>LOAD RL REGISTER 
;WAIT FOR INTERRUPT 



;get TIME USED 



5SET T SP E E^0R TO REPORT 
/VERIFY POSITION 



CHECK WHICH SEEK DIRECTION 

REVERSE - SKIP 

ADD TO FORWARD TOTAL 

ADD IN OVERFLOW 

SKIP 

ADD TO REVERSE TOTAL 
ADD IN OVERFLOW 
DEC SEEK COUNT 
SKIP IF 

ELSE SWAP OLD AND NEW CYL 
REDO SEEK LOOP 

SUB CONSTANT FOR READ HEADER TIME 



II, 



PASCMT 



;SET SHIFT COUNT TO DIVIDE BY 64 
;DIVIDE BOTH TOTALS BY 64 



;BUMP PASS COUNT 

;TEST IF PASS 1 
;N0 - SKIP 

; ELSE SET TO POSITION HDS TO 127 
;do SEEK 

;SET WAIT COUNT FOR 300 MS 
;WAIT FOR READY 

; VERIFY POSITION 

;SET PTRS FOR TIMING 1 CYL SK AT 127 



;SET NEWCYL TO 128 
;DO SEEK LOOP 
?TEST IF PASS 2 



ASSEMBLY ROUTINES MACY11 
CZRLDB.P11 23-OCT-78 14:39 



301(1052) 22-N0V-78 
*TEST 12 



54 



urn 



734 



[76 

m 



16:32 PAGE 2-24 
**SESK TIMING 



mm 
mm 

021244 

002562 

$§2564 



m mm 
mm 

021244 



000004 

mm 
mm 

021244 

000005 

002524 
016070 

m mm 

Iflf 021244 



002524 



002524 
002654 



28$S 



002524 
002654 
002524 



32$S 



002524 
002654 



36$: 



28| 4 E 

fcxsili 

???rdy6aJt 
pc/verpos 



MCYL 




Iemcyl 




-PASCNT 

iiCYL 
PC,XS£EK 



2?I! # ^wSyL 
fPASCNT 

SI" 

PC,VERPOS 
HPII £ R0 

55. # fiEHCYL 

5?PASCNT 

BNCYL 
PC/XSEEK 

#3000«,R1 
PC/RDYwAIT 

PC,VERPOS 



1 CYL SEEK AT INNER 



1 MO - SKIP 
;SET UP TCT TIME 
; . LIMIT 

>SET BAIT COUNT FOR 300 MS 
>NAIT FOR READY 

; VERIFY POSITION 

;SET POINTERS 



1 LOAD REV CYLINDER 

j¥8sf h lill 3 

>Blse §11 UP TO 
} AT OUTER LIN 

jVERIFY POSITION 
|SET POINTERS 



.. ._ TIME 128 CYL SEEK 
UTIR LIMIT 



;LQAD NEHCYL FOR 128 CYL SEEK 

STEST IF PASS 4 
)NO - SKIP 

|l||E i ||| R 0£ i J^TIWE 128 CYL SEEK 

ISET WAIT COUNT FOR 300 MS 
>HAIT FOR READY 

;VERIFY POSITION 

;SET POINTERS 



;SET NEHCYL TO 255 FOR 128 CYL SEEK 
;DO TIMING LOOP 
;TEST IF PASS 5 

flEsE Ie! P UP TO TIME 256 
; OVER ALL SURFACE 



SEEK 



>SET HAIT COUNT FOR 300 MS 
;UAIT FOR DRIVE READY 

;VERIFY POSITION 



ASSEMBLY ROUTINES 
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MACY11 30AC1052) 22-NOV-78 16:32 PAGE 2-25 
14:39 *TEST 12 **SEEK TIMING 




002524 

030300 39$: 

mm 4ols 

"0631 
0003 



655 
MOV 

88? 
88? 

JMP 

PRINTF 
MOV 

MOV 
MOV 
MOV 
MOV 
EMT 
ADD 

PRINTF 

CLR 

BISB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

PRINTF 
MOV 

MOV 

MOV i 

MOV 

MOV 

MOV 

MOV 

EMT 

PR?HTF 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

PRINTF 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 



>SET POINTERS 



;SET NEHCYL 
#VALDES 



AFMID#R0 

AfMIDUgRl 

jmw' 

FMY1.1#-(SP) 
3^-(SP5 

p;ro 

CSPNTF 

tl0#SP 
FMT5,#B ASADD,RLBASs#DRVNAM, <B,RLDRV+1> 



<-(SP) 



RLDRV+1, (SP) 

#DRVNAM,-(SP) 
RLBAS £ -(SP) 
|BASADD«-jS: 

l5/-(SP 
SP.RO 
CSPNTF 

fl4|.SP 

FMT18,#LABIN,#LABMID, »L ABOUT, #LABEXP 
)LABEXP,-(SP) 
iL ABOUT, -(SP) 
|LABMID,-(SP) 
lLABIN,-(SP) 
$PMT18,-(SP) 

1'io 

_s£nTF 

IfSf f §,#LABOCF,OFIN,OFMID # OFOUT,EXOCYL 

EXOC YL#— (SP ) 

OFOUT,-(SP) 

OFMID,-(SP) 

fLAificlz-isP) 
iFMT19 £ -(SP) 

CSPNTF 
#16,SP 

IfMT19,#LAB0CR,0RIN,0RMID,0R0UT,EX0CYL 

§XOCYL,-(SP) 



, "(w- 

OROUT,-(SP) 
ORMID,-(SP) 
-RIN,-(SP) 
LABOCR,-(SP) 
FMT19,-(SP) 




ASSEMBLY ROUTINES 



CfRLDB-Pll 



23-OCT-78 14839 



MACY11 301(1052) 22-MOV-78 



< Hi 



67? 

676 



mm 
m 



1040 

0627 



M 

111 

i 



000016 
SQ2644 



000014 



000014 
000012 

«. ifp 

1 i"« 



6 000012 



*f EST 12 



16S32 PAGE 2-26 
**SEEK TIMIIG 



ebi 

PRIMf F 



NOV 
MOV 
MOV 
MOT 

EMT 
ADD 

PRIMTF 
MOf 
MOV 
MOV 
MOV 
MOV 

88 ! 



SSI 

as 



INTF 



MO 
MO* 
EMf 

piliTr 

NOV 
MOV 
MOV 
MOV 
MOV 
MOV 



104001 



L10046: 



SEQ 0118 



r MT 20##LABHCF 4 fHFII^HFOO? ) yEIHC¥L 
XHCYL>-(SP) 

14.SP 



HCR,~(SP) 
^ <SP) 



RII,HROOT,EXHCYL 



lib 

oP z R0 



CF^irMlD^EXICfL 



fLABACR/ ARMID/EXACYL 

SLAB ACR/-(SP ) 
P/R 



CSETS? 



ASSEMBLY ROUTINES MACYll 30AC1052) 22-IOY-78 16:32 PAGE" 2-27 

CZRLDB.P11 23-QCT-78 14:39 *TEST 13 **BASIC READ DATA (BAD SECTOR FILE) 



SEQ 0119 



3183 



M 

3188 
3189 

mi 
m 

3 ji; 

3195 



3218 
3219 



031700 
031700 
031700 

811??! 

031716 

mil 
mik 

031742 



001405 
005737 
001002 



•SBTTL 

BGMTST 



006477 002434 

000001 002534 

010000 013372 

013400 



002524 2$S 




002440 



177777 

000001 002546 
002546 

000007 
000400 



4$: 



7$: 

8$: 

10$: 
ll$s 
12$: 



13 **BASIC 

;test 13 



MOV 
JSR 
JSR 
65$ 
MOV 
BIT 
BEQ 
TST 
ONE 

.WORD 

MOV 

JSR 

65$ 

MOV 

JSR 

CLR 

MOV 

MOV 

MOVB 

CLRB 

CLR 

MOV 

MOV 

MOV 

MOV 

JSR 

39$ 

TST 

BMI 

TST 

BMI 

TST 

BNE 

TST 

BNE 

CMP 

BNE 

MOV 

BR 

TST 

BNE 

MOV 

MOV 

ASL 

DEC 

BNE 

BIT 

BEQ 



#P2T13E# ERHEAD 
PC/TSTINT 

PC/GSTATR 

#1#DESHD 

lHEADLM # MISWIH 

hIadw 
tIt 

CSEXIT 
L10047-. 
#255.,NEWCYL 
PC/XSEEK 

#3000. ,R1 
PC,RDYWAIT 

PC,VERPOS 

DESSEC 

!FBSFIL*TEHP5 
16. #TEMP6 
UNOERCT 
OCERR 
TEMP3 
TEMP5/R1 
TEMP6/R0 
#IBUFF>R3 
$2,ERRSWI 
PC/XREAD 

(R3) + 

(r!) + 

# + 

(R3),#-l 

|t,TEMP3 
TEMP3 



|B|T8 # (R3) 



READ DATA (BAD SECTOR FILE) 
T13: 

;SET ERROR HEADER 
INITIALIZE TEST 
JCLEAR DRIVE 

;SET TO HEAD 1 
;TEST IF HEAD SPEC'D 
;NO - SKIP 
;TEST IF HEAD 
;NO - SKIP 
;else EXIT TEST 



^POSITION HEADS AT 255 
;DO SEEK 

)SET WAIT COUNT FOR 300 MS 

;UAIT FOR INTERRUPT 

; VERIFY POSITION 

;SET FOR SECTOR 

;SET TEMP STORAGE FOR FACTORY BS FILE 

;SET MAX SECTOR COUNT 

;SET FOR NO ERROR COUNTING 

;CLEAR LOCAL ERROR COUNTER 

;CLEAR ONES DETECTED FLAG 

;INIT POINTERS 



;INIT ERROR SWITCH 
;DO READ 



TEST 

ELSl 
YES - 
TEST 
NO - 
TEST 
NO - 
TEST 
NO 

ELSE 
KIP 
EST 
YES - 
STORE 
ALIGN 



IF WORD NOT NEG 
BAD FMT ERROR 
TEST WORD 1 NOT NEG 

BAD FMT ERROR REPORT 
WORD 2 IS 
SKIP TO FMT ERROR RPT 
WORD 3 IS 
SKIP TO FMT ERROR RPT 
IF NEXT WORD IS ALL l'S 
SKIP 

SET l'S DETECTED FLAG 

IF ONES HAVE BEEN DETECTED 
SKIP TO FMT ERROR RPT 
CYLINDER WORD 
IT TO LOOK LIKE HEADER 



;TEST IF HEAD 1 
JNO - SKIP 



ASSEMBLY ROUTIiBS M&CYU 301(1052) 22-M0V-78 

CZRLDB.Pil 23-OCf~?8 14S39 *TEST 13 



15$: 



16:32 PISE 2-28 

**BISIC READ DATA' 



(BID SECTOR FILE) 



SEQ 0120 




002554 

lit! 

150276 llfl 
002554 41$: 



002552 

002536 43$: 
45$: 



48$1 



6S$: 



66$: 




TEHP3 

HsFIL, TEMPS 
~6 e# TEHP6 
0,/DESSEC 

LfiCERR 

#-l,§TEMP5 

C$IMLP 

0jSSEC # TEMP6 

iliIj66l RR1 



XL,TEMP5 



RCDDE 



IJISERT HEAD Bit 
JtLEAR ILL BUT SECTOR 



; insert sector number 
Schick if ibufp empty 
;n0 get iext cylinder 
/else test if l's detected 
>t0 many errors - report 
;check if software bad read 

;¥ES - SKIP 

J ELSE CHANGE POINTERS 

> MAX SECTOR NUMBER 

; SECTOR NUMBER START 

;DO READ 

;BUMP LOCAL ERROR COUNTER 

mi™ irwnuhte'°* ket 

;YES - GO DO READ 
;CHECK IF ALL SECTORS READ 



|T|ST IF^|OFTilARE FILES CHECKED 

;ELSE~GO CHECK SOFTWARE FILES 
;BUMP TO NEXT SECTOR 
?GO DO READ 

?SET RESULT MESSAGE POINTER 



;go check for loop 

;SET RESULT MESSAGE PTR 



;GO CHECK FOR LOOP 

;I«IT ERROR SWITCH 

;SET BAD SECTOR FILES VALID FLAG 

JTEST IF LOCAL ERRORS 

}m - skip 

) ELSE BUMP ERROR COUNT 



C$ETST 



ASSEMBLY ROUTINES 
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3277 
3278 



MACf 11 
14139 



30AQ052) 22-MQV-78 1 
*TESf 14 



6:32 PAGE 2-29 
**WRITE/READ DAT 



280 



285 

186 
587 
288 



297 
298 

ill 

301 
3 302 
3303 
3304 

1181 

3307 
M 



1? 



(3) 

3323 




032622 104001 



002524 



002434 



•SBTTL 
BGNTST 



032514 



T306$: 



T307S: 
BGNSUB 



T310$: 



002440 60S: 

ENDSUB 
L10051I 



10$: 



11$: 



13$: 



mm 



14 **WRITE/ 

^ TEST 14 



MOV 
JSR 
JSR 
JSR 

T3065$ 
JSR 

CLR 
CLR 
CLR 
JSR 

T3065$ 
MOV 

JSR 

13065$ 
JSR 

T3065$ 
CLR 



EMT 
JSR 

» WORD 
JSR 
60$ 
JSR 



60$ 
JSR 
60$ 

QV 



EMT 

ESCAPE 

EMT 

• WORD 

CMP 

8EQ 

INC 

BR 

JSR 

T3065$ 

CLR 

JSR 

13$ 

BR 

INC 

BR 



«P2T14E,ERHEAD 

PCCKBSVD 

PC,TSTINT 

PC/GSTATR 

PCrCHOSHD 

DESSEC 

NEWCYL 

T310S 
PCXSEEK 

#3000. ,R1 
PC,RDYWAIT 

PC,VERPOS 

T310$ 



CSBSUB 
R5/DATGEN 



PC/XWRITE 

PCXREAD 

PC/DATCOM 

#2,ERRSWI 



CSESUB 
TST 

C$ESCAPE 
L10050-. 
#8.,T310$ 

105 

m% 

PC,SWAPHD 

T310S 
PCBSCHK 

T3 06$ 
NEWCYL 

11$ 



A (PART 1) 
READ DATA (PART 1) 

;SET ERROR HEADER 



SEQ 0121 



T14:: 



;GO CHECK IF BAD SECTOR FILES VALID 

/INITIALIZE TEST 
;CLEAR DRIVE 

;G0 CHOSE HEAD 
; SECTOR 

; CYLINDER 

;CLEAR PATTERN SELECT 
;POSITION HEADS 

;SET WAIT COUNT FOR 300 MS 

>W AIT FOR READY 

7 VERIFY POSITION 
ICLEAR PATTERN SELECTOR 



/GENERATE DATA 
/PATTERN SELECT WORD 

|DO MRITE DATA 

;DO READ DATA 
/COMPARE DATA 
;INIT ERROR SWITCH 

;EXIT TEST IF ERROR 



?SAS DATA PAT 8 USED? 

;yes - skip 

;ELSE BUMP TO NEXT PATTERN 

;DO TEST WITH NEW PATTERN 

;GO SWAP TO HEAD 1 OR END TEST 

/ABORT RETURN 

;SET PATTERN SELECT TO 

;CHECK IF SECTOR BAD 

;yes return - skip to 13$ 

;no return - do test this secto 

;bump to next cylinder 

;CHECK IF THIS ONE BAD 



C$ETST 



ASSEMBLY ROUTINES 
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30AU052) 22-NOV-78 
*fESf 15 



16S 



32 PAGE 2-30 

**SP1IDL£ TIMING fISf 



SEQ 0122 



Q333|0 



002434. 



2SS 
1S2 



002524 



5$: 



6$: 



4$: 



*T£ST 15 



60$ 
MO? 
MOV 
MOV 
MOV 

WAITUS 

MOV 

HI 

BME 
JSR 

IpHRD 

• woSd 

• WORD 

J MP 
TST 
BPL 

ERRHRD 

TRAP 

.WORD 

• WORD 

JMP 

MOV 



;test 15 

#P2T15E/ ERHEAD 
PASNUM 

R4 

PC,TSTIMT 
PC/GSTATR 

R5/DATGEN 

DESSEC 

PC/XSBEK 

PC/VERPOS 

Il.MP.R5 
PC,XWRITT 

(R5) € RLMP(R2) 

-(R5),RLDA(R|) 

-(RljjRfccS(R2) 
|3000l,RO 



**SPODLB TIMING- TEST 



T15S! 

ERROR HEADER 
T ij^PASS 

~ UAL TESTS MERE ROM 



its 



TEST 

1CLEAR POR TIMING STORAGE 

>CLEAR TO SECTOR 
100 SEER 

MSm S8So? 00 MS 

ivsiir? position 



64.^R1^;SET LOOP. COUNTER 



P|^8AIT| 

iMlkl 



502. ci rERR6 

Iercode 



;LOAD RL REGISTERS 



;TEST IF INTERRUPT 
— SKIP 
SE WAIT FOR TIMEOUT 
'-■ MESSAGE POINTER 



/TEST IF AMY ERRORS 

;no - skip 



;SET POINTER TO RL LOAD REGS 



ASSEMBLY ROUTINES MACYll 30A(1052) 22-NOV-78 

CZRLDB.P11 23-OCT-78 14S39 *TEST 15 



16:32 PAGE 2-31 

**SPINDLE TIMING TEST 



SEQ 0123 



33 ? J 




002430 
^00006 

" 

00000 
005670 



002430 
015026 



000006 



UP* 



033272 
033276 



mm 

062706 000014 



7$i 



8$; 



10SS 



CLR 
MOV 
MOV 
MOV 
MOV 

WAITUS 

MOV 
EMT 

GETTIH 

EMT 

TST 

BME 

JSR 

MOV 

ERRHRD 
TRAP 

• WORD 

• WORD 
BR 
TST 
BPL 

ERRHRD 
TRAP 

• WORD 

• WORD 
BR 
ADD 
ADC 
DEC 
BHE 
MOV 
CLC 
ROR 
ROR 
DEC 
BNE 

PRINTF 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

PRINTF 

CLR 

BISB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

PRINTF 



RLMPCR2) 

# RLCS(R2) 



DONE 

-fR5) 

#3000. 
|3000»,R0 
C|WTU 

CSGTIM 

DONE 

pLwaitin 

(SP)*,R3 

1503. ££ ERR1 

T5ERC0DE 

1503 

ERR1 

60$ 

T.CS 

lIo4» ££ ERR6 

TSERCODE 

1504 

ERR6 

60S 

RQ,R3 

R4 

Rl 

ll/Rl 



KLEAR INTERRUPT INDICATOR 
;LOAD RL REGISTERS FOR 2ND WRITE 



;WAIT FOR INTERRUPT 

;get time waited 

;test ih interrupt occurred 
;yes - skip 

>go wait for interrupt 
;get message pointer 

JREPORT 



;TEST IN ANY ERROR 
;N0 - SKIP 
;REPORT ERRORS 



; ADD IN TIME USED 
} DOUBLE PRECISSION 

;dec loop counter 
;loop until o 



FMTl»l,#SRTMES< 



;SET DIVIDE COUNT 
;CLEAR CARRY FOR DIVID 
JDIVIDE SUM BY 100(8) 

;DEC DIVIDE COUNT 
JLOOP UNTIL DONE 
,#VALDES 



R4 

11 

P 

|VALDES,-fSP) 

|srtm£s,-(sps 
Ifmti.i;-(sp) 

|3,-(SP5 

SP £ R0 
C|PNTF 

Ifm^5/#basadd / rlbas / #drvnam / <b,rldrv+i> 

~(SP) 

RLDRV+1,(SP) 
"TRVN AM £ -£SP ) 



#DRVNAM < -(SP 

RLBAS £ -(SP) 
fBASADD £ -(SP) 



§P 



3 



SP) 



!FMT5 

CSPNTF 

fl4 £ SP 

#FMT26,#RESE3 / R3,#RESE4,#MAPR0X,F.XR0T 



ASSEMBLY ROOTIMES 



CZRLDB.P11 



23-OCT-7i 14139 



MACY11 30AQ052) 22-NQV-78 




*?ES? 15 



16132 PAGE 2-32 

**SPIIDLE TIMING fIST 



002440 60S 



EIDTST 

L10052: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
EMT 
ADD 
MOV 



Slssf 

fFMTi 

fffclf 

#2, ERRS 

C$ETST 



IpV' 



} INITIALIZE ERROR SWITCH 



ASSEMBLY ROUTIItS 
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MACY11 30AC1052) 22-N0V-78 16:32 PAGE 2-33 

14139 *f EST 16 **WRITE/READ DATA (PART 2) 



hi 

342 



3441 
3442 

ml 



3445 033556 



1449 
452 




002434 



013372 



002336 

mm 

013372 



SBTTL 

" TSf 



BGM 



1$: 
2$: 

T3100$! 
3$: 

8$: 



T3101S: 

BGMSUB 



*TEST 16 

i 

JSR 

m 65s 
m 

BME 

ni 

MOV 

MOV 
MOV 
MOV 

DEC 
BME 
MOVB 
MOVB 
MOVB 
INC 
BIT 
BME 
TST 
BME 
ADD 
CMP 
BHIS 

MOVB 
BIC 
BNE 
JMP 
CMP 
BEQ 
MOV 
CMP 
BLO 
CMP 
BHI 
MOV 
MOVB 
MOVB 
MOVB 
MOVB 
MOVB 
MOVB 
MOV 
JSR 



**MRITE/READ DATA (PART 2) 
>TEST 16 



PC/GSTATR 



RHEAD 



ICLEAR DRIVE 



Iasmum 

iiLLCYL,MISHIM 
-8.,R5 

!T33TBL,R1 
10,R3 
QLIMW,(R1)+ 
R3 
2$ 

HILIMW,T33TBL+4 

HILIHW,T33TBL*6 
h|L!MW,T33TBL*10 

|ALLCYL,MISWIW 

pfsNUM 



J SET ERROR HEADER 

P 

li. 



T16SS 
FILES 



SfcfBs"" T0 



Jf/R5 

CYLTBL(R5)/R3 
|177400,R3 

jjiKJ.5 

R3,|(R4) 
R|Jl|(R4) 

r4'tblstr 

pc,choshd 



;TEST IF FIRST PASS (QOICK VERIFY) 
|N0 - SKIP 

TEST IF USE ALL CYLINDERS 
. rES - SKIP 
;else SET R5 TO NEG 8 

>GET ADDRESS OF WORK TABLE 
JSET CLEAR COUNT 
;CLEAR LOCATIONS TO LO LIMIT 
;DEC COUNT 
ILOOP UNTIL 
; INSERT HILIMIT 
;INTO APPROPRIATE LOCATIONS 

"jBUMP R5 
;TEST IF USE ALL CYLINDERS 

;yes - skip 

;TEST IF F" 
JNO - SKIP 



/LOLIMW 
100$ 

LIMW 



. ST IF FIRST PASS (QUICK VERIFY) 
)NO - SKIP 

; ELSE BUMP CYLINDER POINTER BY 7 
JTEST IF PAST TABLE 
;YES - GO TO EXIT 

;get next table entry 

;CL|AR UPPER BYTE 
;SKIP IF NOT 
;EXIT TEST 

;TEST IF ALL CYLINDERS USED 
;YES - EXIT TEST 
;USE R5 AS NEXT CYLINDER 
;CHECK IF LOWER THAN LOLIMIT 
;YES - SKIP 

;CHECK IF HIGHER THAN HILIMIT 
;YES - SKIP 

;GET ADDRESS OF SEEK TABLE 

; INSERT CC IN APPROPRIATE TABLE 

; LOCATIONS FOR TEST SEEK SEQUENCE 



;STORE TABLE ADDRESS 
>GQ CHOSE HEAD 



T16.1S 



ASSEMBLY ROUTINES 
CZRLD8*P11 23»OCf»7§ 




301(1052} 22-IO¥-78 
•TEST u 



10$: 



002536 
000050 



16132 PAGE 2-34 

**WRIfg/8gAD DATA {PUT 2) 



002536 



11$ 
12$ 



15$ 



16$: 



25$S 



29$! 
31$: 



32$: 



SEQ 0126 



LS#0PFL1G 

ill 

PlfC!lf,#3 



ALL MI 
lf„P|Sf 



$,pascit 
||outs,opplag 



iSS 3 
jESS THA8 



FLAG 



DESSEC 
(R4)* it MEHCYL 
PC,XSEEK 

(R4)* £ MEMC¥L 
POISiEK 

??, 88y6 r 1t 

PC/fERPOS 
PC,BSCHK 

R5/DATGEN 

#BIT0,WRTSWI 

29$ 

PC/XWRITE 



li!p HEis 

;se! piss c 
isst mIssag_ 

fill ii5I E f? 4 ggL 

KLEAR TO SECTOR 

|G|f MEXT TABLE ENTRY 
>D0 SEEK 



SSAGE QUALIFIERS 




3, 

AGE QUAL 

ONT TO 
UAL 

III" 



IF YES CLEAR TO 



QUAL 
"**!ITE SWITCH 
S ADDRESS 



;SET BAIT COUNT FOR 300 MS 

$s!f? 9m READY 

;GET lEXf TABLE EMTRY 
™SK 



1DO SEEK 



T FOR 300 MS 
Y 



IfERIFf POSITION 

iSHIgR hup """" 



TO SECTOR NUMBER 



;GO GE1ERATE DATA 



JTBST 



IF WRITE THIS 



DESSEC 

" 9 DESSEC 



TE REi 



DESSEC 



>INC SECTOR 
;TEST IF ALL SECTORS 
3 MO - SKIP 
TSIOUTINS/OPFLAG ; CLEAR QUAL 

'• — \WYUW~ "" 

;CLEAR 

IF READ THIS PASS 
$110 - SKIP 
; ELSE DO READ 



if 9 

IIOjJTS^OUTINS 

ISIwGtIJoftlag 



1bIti,wrtswi 

33$ 

PCXREAD 



FOLLOWING _ 

~ TO SECTOR 



ALIFU 



RS 
SWITCH 

QUALIFIER 



PC/DATCOM 

DESSEC 
#40 
16$ 



|40», DESSEC 



;compare data 

;bump sector 
;test if all 

;MO - LOOP 



SECTORS USED 



ASSEMBLY ROUTINES MICfll 301(1052) 22-MOV-78 16:32 PAGE 2-35 

CZRLDB.P11 23-OCT-78 14:39 *TEST 16 **WRITE/READ DATA (PART 2) 



SEQ 0127 



mi 



mm 

034166 

mu 

034206 
034210 
034216 



im mi 



034234 

034236 

mm 

034250 

nan 

034266 
034270 



mm 

034354 

034356 



005037 
005037 
005237 

m 

023727 

if 

001415 
023727 

mm 

052737 

If 

104003 



012737 

000410 
005037 
004737 
033470 



104001 



002536 




33$: 



002654 

mm 

002654 



mm 

000006 

mm 

000005 




000003 
002654 

002340 

mix 

mm 



88iodf 

002446 



002446 



45$: 



ENDTST 
L10053: 



CLR 
CLR 
INC 
BIC 
CMP 
BEQ 
CMP 
BEQ 
MOV 
CMP 
BEQ 
CMP 
BEQ 
BR 
BIS 
BR 
BIS 



EMT 

ESCAPE 

EMT 

.WORD 

MOV 

CMP 

BNE 

MOV 

BR 

CLR 

JSR 

T3100$ 

MOV 

J MP 



DESSEC 
WRTSWI 
PASCNT 

f MQUALS* OPFLAG 

PASCHT,#3 
60$ 

PASCSST,#6 
40$ 

PASCNT,#5 

ill 

j|FWDSKO,OPFLAG 



OUTS/OPFLAG 
TINS,OPFLAG 



6 


5$ 

2,ERRSWI 



ESUB 
T 

ESCAPE 
0053-. 
,WRTSWI 
5CNT,#3 



;CLEAR DESIRED SECTOR 
KLEAR WRITE/READ SWITCH 
JBUMP PASS COUNT 
/CLEAR ALL QUALIFIERS 
;TEST IS PASS 3 
>YES - SKIP 
;TEST IF PASS 6 
;YES - SKIP 

S?IIt r M§T ed b " 

;yes - skip 
/test if pass 4 

;YES - SKIP 
$SKIP 

;SET FWD QUALIFIER 
;G0 DO NEXT PASS 
;SET QUALIFIER 
ISKIP 

;SET MESSAGE QUALIFIER 
;GO DO NEXT PASS 
;INIT ERROR SWITCH 



;EXIT TEST IF ERROR 



;SET FOR READ AND WRITE REQ. 
;TEST IF PASS 3 
;no - SKIP 

3TBL+6/TBLSTR JSTORE MID POINT IN TABLE 
;GO START PASS 4 
/CLEAR TO PASS 
;G0 SWAP TO HEAD 1 OR END TEST 
/ABORT RETURN 
;STORE START OF TABLE 
;GO DO HEAD 1 



CNT 

SWAPHD 



33TBL/ TBLSTR 
101$ 



C$ETST 



ASSEMBLY fO@THI$ MACYU 3SAUQS2) 22 

CItl.OS.Pll li«QCf-7i 141)9 



46: 



12700 000062 
lllll 015176 
32737 020000 



•TEST 

am 

m 



iOf-78 
17 



002434 



002474 



5$: 



15i32 FACE 2«3§ 

***Rifi wol &mm aid data phot iction 



SEQ 0128 



*TESf 17 



IMTF 




if 



9e#erhead 

iili 

IIL 

poyi&pos 

iMLSTAT/T.KP 
M/DATCIN 

PC,XWRITE 

PCXREAD 

PC,DATCOM 



lock litem 



AID DATA PROTECTION 
T17 X : 



If EST I? FIRST PASS 
>?lsT fP^UII MANUAL INTERVENTION 



IP 



T17.1: 



HEADER 



LIIOER 



>SEf ERROR 

IjAL 

|DO SEEK 

;fERIPY POSITION 

llllf If |pi fg LOCK SET 



mm 



;PAffERS"7 DAT * 

JWRITE DATA 

JREAD DATA 
KHECK DATA 



P1 / #OPR004 / #OPR1A / #BASADD / RLBAS,#DRVNAM,<B / RLDRV*1> >REQ0KST SET VR 



002474 



iFHTOPlI-tsP) 

M'Al 

CSWTM 
PC/GSTATR 

#SfLSTAT,Y„MP 



;SET WAIT COUNT FOR 30 SECONDS 
;CALL MAIT 

| GET STATUS 

;CHECK IF WRITE LOCK SET 



ASSEMBLY ROUTINES MACY11 30AU052) 22-NOY-78 16:32 PAGE 2-37 

CZRLDB.P11 23-OCT-7S 14:39 *TEST 17 **WRITE LOCK ERROR AND DATA PROTECTION 



SEQ 0129 




7$: 



10$: 



015226 



14$: 



BNE 

PRINTF 

MOV 
HOY 
MOV 
MOV 
EMT 
ADD 
DEC 
BNE 

PRINTF 

CLR 

BISB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

EXIT 

EMT 

• WORD 
JSR 

1 

MOY 
MOV 

BIS 

BIC : 

MOV 

CLR 

MOV 

MOV 

CLR 

MOV 

MOV 

MOV 

MOV 

WAITUS 
MOV 

EMT 
f ST 
BHE 
DEC 
BNE 
JSR 
MOV 

ERRHRD 
TRAP 

• WORD 

• WORD 
EXIT 
EMT 

• WORD 
JSR 



MT2s#BELL 



ELL,-(SP) 



CSPNTF 

"6,SP 



#FMT23,#P2T17E, 
-(SP) 

^Pgffi^sp 



;YES - SKIP 
;RING BELL 



;DEC COUNT 
SsKIP IF NOT 
#&YPSNH,#0PR1A,<B,RLDRV+1> ;RPT BYPASSED 



♦1/(SP) 
BYPSNfiJ-(SP) 

4 4 ' SP 

CSEXIT 

L10055-. 

R5/DATGEN 

#L.CS,R5 

iwf DATA* (R5) 
RLDRV.(RS) 
|BIT10/(R5)+ 
|OBUFF,(R5)+ 



(R5) + 




^GENERATE DATA 
;PATTERN 1 

1 GET ADDRESS OF L REGS 
;LOAD WRITE COMMAND 



; INSERT DRIVE NUMBER 
;CLEAR FOR DRIVE 4-7 SPEC'D 
;LOAD BUS ADDRESS 



JCYL 0, HD 
;128 WORDS 



HD 0, SECTOR 



;SET WAIT COUNT FOR 30 MS 
/CLEAR INTERRUPT FLAG 
;LOAD RL REGS 



;check if interrupt 
jyes - skip 
;dec wait count 
;loop if not o 
;wait for interrupt 
;get result message 



?get status 



ASSEMBLY ROUTIIES 
CZRLDB.Pll 23-OCT-78 

mi mm im 



MACY11 



301(1052) 22-IOV-78 16: 
*TEST 17 



mm n 



§1 



n 



!il5?» 
MSS! 

0Q5Q46 

i 3 



m mm mm 



640000 
007665 



002000 

007744 



1UDVU 

Ml mi 



000001 



002466 



002474 15$S 



fit* 

BHE 



erIhrd 



P- 
TRAP 
.WORD 



036000 002466 



015176 

021726 
022414 
022066 
000002 



18$S 



16$: 



17$: 



000002 002440 T3204$: 



002440 



flS!! RD 

.WORD 
.WORD 

QIC 

li? 

BNE 

BIT 
BEQ 

ERRHRD 

TRAP 

.WORD 

ill 

JSR 
7 

JSR 
60$ 
JSR 
60S 
MOV 



16$: 



BISB 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
EMT 
ADD 
MOV 

WAITMS 
MOV 

EMT 



32 PAGE 2-38 

"WRITE LOCK ERROR AMD DATA PROTECTION 



1DRVERR/T.CS 



;?ESf ir„A|¥ ERROR SET 

POUTER 



STAT/T.MP 

~ S MP 

MP 



JTlSf IF M6E 
III NliHEl 



* XfLWP SET 

FOR MGE MOT SET 



IDRV ERR#T.C 



>000/T.CS 

HB cfi6 « 

IS? 6 

PC,GSTATR 



R5/DATGEN 
PC/XREAD 
PC,DATCOM 
#2,ERRSWI 



JCLEAR DRIVE ERROR BIT 

If is 



SAR WGE BIT 
? If AIY OTHER ERRORS 



if EST AI| 



GO REPORT 

ERRORS IN CS REG 



RORS 



;exit test 

;get status and reset error 
)qo giierats data 

IPATTER1 7 
JREAD DATA 

JCOMPARE DATA 

;INIT ERROR SNITCH 



CLR -CSP) 



SEQ 0130 



rEdrI+IsCsp) 

elisor 



*DRVNAM,<B,RLDRV+l> ;REQ RESET NRT L 



SMffirif" 

p;ro _ 

CSPNTF 
#20, SP 

§300. ,R1 



;SET WAIT FOR 30 SEC 



ii§?8 



ASSEMBLY ROUTINES 
CZRLDB.P11 23-OCT-78 



ill? 

3652 
3653 

ml 

3656 
3657 

I 8 

sill 



9353 



035336 

P 

56 

035360 
"5362 



5362 



o !. 

03; 



[737 

!?31 



MACY11 
14:39 

015176 

020000 



30AC1052) 22-MOW-78 
♦TEST 17 



16:32 PAGE 2-39 

♦♦WRITE LOCK ERROR AND DATA PROTECTION 



002474 



000731 



JSR 

T3204$ 

BIT 

BEQ 

DEC 

BNE 

BR 



ENDTSf 
L10055 



SEQ 0131 



PC/GSTATR 

WLSTA 
3265$ 

04$ 



MWLSTAT/T.MP 

f 3 - — 



CSETST 



;GET STATOS 

;CHECK IF WRITE LOCK RESET 

;DEC WAIT COUNT 
JLOOP IF NOT 
/ELSE REPEAT MESSAGE 



ISSEMBLY ROUTINES MICY11 301(1052) 22-HOV-78 16:32 PAGE 2-40 

CZRLDB.P11 23-OCT-78 14:39 *TEST 18 **ADJACENT CYLINDER INTERFERENCE 



SEQ 0132 




013376 

002332 
000001 
000007 
000011 



»S9?TL 
BGMfST 



♦TEST 18 



002434 



013372 



013372 



m 

2S! 



T3300S! 



7$: 
8$: 



MOV 
JSR 
JSR 
JSR 

T3365$ 

CLR 

MOV 

TST 

BNE 

BIT 

BNE 

MOV 

BR 

MOV 

MOV 

MOV 

MOV 

DEC 

BNE 

JSR 

9„ 

MOVB 
MOVB 
MOVB 

MOVB 

INC 

BIT 

BNE 

TST 

BEQ 

ADD 

BR 

ADD 

CMP 

BHIS 

MOVB 

BIC 

BNE 

JMP 

TST 

BNE 

INC 

CMP 

BEQ 

MOV 

CMP 

BLO 

CMP 

BHI 

MOV 

MOVB 

MOVB 

MOVB 



#P2T18E# ERHE AD 
PC/CKBSVD 
PC/TSTINT 
PC,GSTATR 

PA|Cg| 

Iasnum 

^IlLCYL/MISHIW 

Si 20 -" 5 



**ADJACENT CYLINDER INTERFERENCE 
;TEST 18 

Tie:: 

;SET ERROR HEADER 

;G0 CHECK IF BAD SECTOR FILES VALID 
; INITIALIZE TEST 
;CLEAR DRIVE 



|t3§tbl,ri 



#10,R3 
L0LIMW,(R1)* 

R5/DATGEN 

HILIMW,T33TBL+2 
HILIMW,T33TBL*4 
HILIMW/T33TBL+J 
HILIMW/T33TBL-H 

R5 

|allcyl,miswiw 

pIsnom 

% 



;CLEAR PASS TO 
;SET R5 

;test if FIRST PASS (QUICK VERIFY) 
;NO - SKIP 

JTEST IF USE ALL CYLINDERS 

;yes - skip 

;ELSE SET R5 TO NEC 20 

;SKIP 

;ELSE SET FOR NEG 4 
; GET ADDRESS OF WORK TABLE 
;SET CLEAR COUNT 
;CLEAR LOCATIONS TO LOLIMIT 
>DEC COUNT 
JLOOP UNTIL 
;GO GENERATE DATA 
JP ATTERN 9 
; INSERT HILIHIT 
;INTO APPROPRIATE LOCATIONS 



g|,R5 



t|36S $ 

J255,,R5 

rI,R3 
R3#LOLIMW 
T3300S 
R3 #HILIMW 



it j » n i 
T330G 
#T33T 
R3 # l(. 
R3/7(R45 
R3,11(R4) 



OL/R4 
R4> 




6 

;bump P5 

; TEST IF USE ALL CYLINDERS 
;YES - SKIP 

;TEST IF FIRST PASS (QUICK VERIFY) 
;NO - SKIP 

; ELSE BUMP CYLINDER POINTER BY 3 
;SKIP 

;BUMP TO NEXT ENTRY 
JCHECK IF PAST TABLE 
;YES - SKIP TO EXIT 

;get next table entry 
/clear upper byte 

;SKIP IF NOT 

;EXIT TEST 

/TEST IF R5 

; NO - SKIP 

;ELSE BUMP Rb AGAIN 

; TEST IF ALL CYLINDERS USED 

;YES - EXIT TEST 

;USE R5 AS NEXT CYLINDER 

;CHECK IF LOWER THAN LOLIMIT 

;YES - SKIP 

JCHECK IF HIGHER THAN HILIMIT 
JYES - SKIP 

/GET ADDRESS OF SEEK TABLE 

; INSERT CC IN APPROPRIATE TABLE 



ASSEMBLY ROUTINES MACY11 30A(1052) 22-NOV-78 

CZRLDB.P11 23-0CT-78 14:39 *TEST 18 



16:32 PAGE 2-41 

** ADJACENT CYLINDER 



INTERFERENCE 



SEQ 0133 




000017 



003760 
002654 



002654 



§55 

002524 
016070 

83818 

021244 
023074 
000001 
022354 

mm 



002426 
000004 



002654 
002426 



8828$ 



T3301S 
BGNSU& 



10$: 
US: 
12$: 
15$: 



002444 



002536 



16$: 



000002 002444 29$: 



MOVB 

INC 

MOVB 

MOVB 

SUB 

MOVB 

MOVB 

MOV 

JSR 



EMT 

BIC 

TST 

BEQ 

CMP 

BEQ 

BLT 

MOV 

BIS 

BR 

CLR 

BIS 

MOV 

MOV 

CLR 

MOVB 

JSR 

60S 

MOV 

JSR 

60S 

MOVB 

JSR 

60S 

MOV 

JSR 

60$ 

JSR 

60$ 

JSR 

ffi 

BEQ 

JSR 

60$ 

INC 

CMP 

BNE 

BIC 

BIC 

BIS 

CLR 

BR 

BIT 



R3/17(R4) 

R3,5(R4) 

R3,3(R4) 
R3,13(R4) 
R4/TBLSTR 
PCCHOSHD 



C$BSUB 

#MQU ALS/ OPFLAG 
PASCNT 

PaIcNT,#4 

10$ 
11$ 



;BUMP R3 TO CC+1 
> INSERT AS NEEDED 



;SET R3 TO CC-1 
; I NSERT AS NEEDED 



;STORE TABLE ADDRESS 
;GO CHOSE HEAD 



T18.1: 

/CLEAR ALL MESSAGE QUALIFIERS 
;TEST IF PASS 
;YES - SKIP 
JTEST IF PASS 4 
?YES - SKIP 

;CHECK IF LESS THAN 4, IF YES CLEAR TO 
; ELSE SET TO 4 
;SET MESSAGE QUAL 

;SET PASS COUNT TO 
>SET MESSAGE QUAL 
;SET READ AND WRITE SWITCH 
?GET STORED TABLE ADDRESS 
/CLEAR TO SECTOR 
;GET NEXT TABLE ENTRY 
;DO SEEK 

;SET WAIT COUNT FOR 300 MS 
;WAIT FOR READY 

;GET NEXT TABLE ENTRY 
;do SEEK 

;SET WAIT COUNT FOP 300 MS 

JWAIT FOR READY 

; VERIFY POSITION 

JCHECK FOR BAD SECTOR 
;"YES" RETURN 
;TEST IF WRITE THIS PASS 

;no - skip 

;D0 WRITE 
;INC SECTOR 

;TEST IF ALL SECTORS USED 
NO - SKIP 



4,PASCNT 
pOUTS, OPFLAG 

paIcnt 

ftOUTINS. OPFLAG 
|3,WRTSWI 
TBLSTR/R4 
DESSEC 
(R4)+,NEWCYL 
PC/XSEEK 

#3000. ,R1 

PC/RDYhAIT 

(R4)+ / NEWCYL 
PC/XSEEK 

Ic/RDySait 
pcverpos 

PC/BSCHK 

fBITO/WRTSWI 
29$ 

PCXWRITE 

DESSEC 
#40* /DESSEC 

l6$ >nu - orvir 

jflNOUTS I OUTINS, OPFLAG /CLEAR QUALIFIERS 



SBITO.WRTSWI 
FOLWPT/ OPFLAG 
ESSEC 
16$ 

#BIT1,WRTSWI 



;CLEAR WRITE REQUIRED SWITCH 
;SET FOLLOWING WRITE QUALIFIER 

/clear to sector 
;skip 

/TEST IF READ THIS PASS 



ASSEMBLY ROUTIIIS 
CZRLOB.P11 23~OCf~78 



MACY11 

14:39 



002536 

mm 

000010 
000003 
000007 




301(1052) 22-IOV-78 
*fSS? 18 



31$: 



132 PAGE 2-42 
**ADJACgI? CILIIDgU IMTE8FEREICE 



SEQ 0134 



2444 
0004 



002446 



002446 



32$: 
33$S 



3*i! 

39$: 

ttii 



45$: 



104001 



x 4 $iis 

EMDT " 
L100 



5$: 
if: 



EMT 

gglPE 

.WORD 
MOV 

CMP 
BME 

SB" 

CLR 

T§300$ 

HO? 
JHP 



PC,DATCOM 

DESSEC 
|40 a ^DESSlC 



IPFLAG 



DESSEC 

AS Sf 

P$!c*f,#8. 

PA|CBT,#3 

P»SCKT,n 

her 1 

|ciT/#2 
OTIMS,OPFLAG 

||ioU?S # OPFLIG 
JrIvSKS/OPFLAG 

#2,ERRSWI 



CSESUB 
TST 

cIescapb 

L10057-. 
#3 C WRTSWI 
PASCNT,#4 



KIP 

Q READ 



JlEsi 

^COMPARE DATA 
>BOMP SECTOR 

jflSf |g o |LL SSCfOBS USED 



90 - LOOP 

im mm. 

ipNp PASS CQOH 

|¥lS - SKIP 
jf|ST IF PJSS 8. 

}fg|f"lP PASS 3 
>¥BS - SKIP 
JTJST IF P|SS 7 



_ REQUIRED 
J»ASS 1 

jlSft-lf'pfss 2 

JSE? MESSAGE QUALIFIER 

;SET MESSAGE QUALIFIER 

JSET MESSAGE QUALIFIER 
JSET READ REQUIRED 

;IMIT ERROR SWITCH 



JEXIT TEST IF ERROR 



;SET FOR READ AND WRITE REQ. 

JTEST IF PASS 4 
110 - SKIP 

3TBL+10/TBLSTR ISTORE MID POINT IM TABLE 
;Gp START PASS 4 
;CLEAR TO PASS 
WAPHD JGO SWAP TO HEAD 1 OR END TEST 

) ABORT RETURN 
f T33TBL, TBLSTR ;STORE START OF TABLE 
T3301$ JGO DO HEAD 1 



PASCMT 
PC,S~ 



C$ETST 



ASSEMBLY ROUTINES MACY11 30AC1052) 22-NOV-78 16:32 PAGE 2-43 

CZRLDB.P11 23-OCT-78 14:39 *TEST 19 **0VERWRITE 



SEQ 0135 



006702 
015176 

003062 




002332 

0000^ 
0Q00U 
000013 



•SBTTL 

BGITST 



002434 



013372 



002334 



013372 



415 

2$: 



T3400$i 



7$: 



8$: 



•TEST 19 



**OVERWRITE 

;TEST 19 



MO? 
JSR 
JSR 
JSR 

T3465$ 

CLR 

MOV 

TST 

BNE 

BIT 

BNE 

MOV 

BR 

MOV 

MOV 

MOV 

MOV 

DEC 

BNE 

MOVB 

MOVB 

MOVB 

INC 

BIT 

BNE 

TST 

BNE 

ADD 

BR 

ADD 

CMP 

BHIS 

MOVB 

BIC 

BNE 

JMP 

TST 

BME 

IMC 

CMP 

BEQ 

MOV 

CMP 

BLO 

CMP 

BHI 

MOV 

MOVB 

MOVB 

MOVB 

MOVB 

MOVB 

MOVB 



|P2T19E, ERHEAD 
PC,CKBSVD 
PC/TSTINT 
PCGSTATR 

PASCNT 

IaSNUM 

|Illcyl # miswim 

It3^TBL/ Rl 

IlO £ R3 

L0LIMW,(R1)+ 

R3 



T19: 



fii 



_LIMW,T33TBL+2 
HILIMW/T33TBL+6 
HILIMW,T33TBL*1 
R5 

|ALLC¥L,MISWIW 
gfsNUM 

if 9 -" 5 

#3,R5 
R5,#41. 

C?LTBL(R5)/R3 
£177400, R3 

t! 465$ 

R5 

II 

|255«,R5 

R§,R3 

R3/LOLIMW 

T3400S 

"~ "IIMW 




;SET ERROR HEADER 
;go CHECK IF BAD SECTOR FILES VALID 
INITIALIZE TEST 
; CLEAR DRIVE 

/CLEAR PASS TO 
;SET R5 

;TEST IF FIRST PASS (QUICK VERIFY) 

?HD - SKIP 

JTEST IF USE ALL CYLINDERS 
;YES - SKIP 

IELSE SET R5 TO MEG 20 
;SKIP 

;SET FOR NEXT ENTRY 

/GET ADDRESS OF WORK TABLE 

;SET CLEAR COUNT 

;CLEAR LOCATIONS TO LOLIMIT 

;dec count 

iLQOP UNTIL 

5 INSERT H {LIMIT 

;INTO APPROPRIATE LOCATIONS 

;BUMP R5 

;TEST IF USE ALL CYLINDERS 

;YES - SKIP 

;TEST IF FIRST PASS (QUICK VERIFY) 

;NO - SKIP 

>ELSE BUMP CYLINDER POINTER BY 19 
;SKIP 

;BUMP CYLINDER POINTER BY 3 

;TEST IF PAST VALID TABLE 

Iffl =- MIE 



KLE 



NEXT TABLE ENTRY 



. _ -EAR UPPER BYTE 
;SKIP IF NOT ' 



;exit 

; TEST 

;no - 
; ELSE 



TEST 

IF R5 
SKIP 
BUMP 



R5 AGAIN 



;test if all cylinders used 
;yes - exit test 
;use r5 as next cylinder 
;test if past lo limit 

?YES - SKIP 
;TEST IF PAST HILIMIT 



. SET ADDRESS OF SEEK TABLE 
; INSERT CC IN APPROPRIATE TABLE 
; LOCATIONS FOR TEST SEEK SEQUENCE 



ASSEMBLY RQSfflES 



m 



Im 8 



|J5 




30AU052) 22-*0f-78 16s 

•tost i t 



oooioi 

002536 



002426 
000003 

881«t 



002654 

037216 

002444 

002536 

002426 
002444 
002426 



kov 

JSR 



10$: 

Ills 
12$S 
15$: 



16SS 



7$: 



it 



32 PAGE 2-44 
"OVERVftlYK 



Mm 
sun 



CSBSUB 

II 

%PISCIT 
|o0fS^OPfLIG 

Jcif 

Helton 

DESSEC 

13000.,! 
PC,RDYW 

PC,VERP0S 

PC/BSCHK 

Pj|SCtfT 



Rl 

A If 



^PlSCif 



IbiliEi 

|BIT0,iRTSlfI 

PcflMRITE 

DESSEC 
|4§« , DESSEC 



SEQ 0136 



>£b££R ILL ^ESSIGE QUALIFIERS 
if Iff IF... PASS 



1st 



.'Sift 

ir Pk 



¥ 

. ASS 3 
KIP 

CK fr LESS THAU ^» It YES CLEAR TO 
E SET TO 3 

message mm 

PASS COUIT TO 



message qual 
{get wbxt table emtry 

|DQ SEEK 

she? rm 300 » s 

>gbt ii ext table eitry 
|do seek 

?set mait coumt for 300 ms 

{illf FOR READY 

f¥ERIF¥ POSITIOII 

JCHECK FOR BAD SECTOR 
{•'YES" RETURN 
iTESf IF PASS 
- SOP 
" If PASS 3 

SLSEClIIr DATA PATTERI SELECTOR 



SELECTOR TO 8 



IflOUTSIOUTINS, 

- — " m 

FLAG 



BITO.MRTSIil 
"nLMRT^OPr- 



§F01 

DESSEC 



|TEST IF MRITE THIS PISS 
280 - SKIP 
J DO MRITE 

Hit SECTOR 

|f EST IF ALL SECTORS USED 
>N0 - SKIP 
OPFLAG /CLEAR QUALIFIERS 
JCLEAR MRITE REQUIRED SWITCH 
|SET FOLLOHUG IS™" 
; CLEAR TO SECTOR 



RITE QUALIFIER 





ROUTINES 




MACY11 301(1052) 22-M0Y-78 16:32 PAGE 2-45 
14S39 *TEST 19 **OVERWR ITE 



SEQ 0137 



002340 



002444 29$: 
31$: 



002536 



mm 

002446 



002446 



32$: 

33$: 



002426 
000003 

000006 

000001 

000004 

002444 
000002 

002426 

002426 Ills 
002426 39$t 

NIK* 

002440 



41$ 



60S: 

EHDSUB 
L10062: 



BR 

BIT 

BEQ 

JSR 

60$ 

JSR 

60$ 

IMC 

CMP 

BME 

CLR 

CLR 

INC 

BIC 

CMP 

BEQ 

CMP 

BEQ 

CMP 

BEQ 

CMP 

BEQ 

MOV 

CMP 

BEQ 

BIS 

J MP 

BIS 

BR 

BIS 

BR 

BIS 

MOV 

BR 

MOV 



3978 



037600 104001 
037602 



45$: 



tSIIss: 



16$ 

|biti,wrtsiii 

PcfxREAD 

PCDATCOM 

DESSEC 
||0,/DESSEC 

deIsec 

WRTSWI 
PASCNT 

fMQUALS, OPFLAG 
PASCNT/&3 

60$ 

PASCNT,#6 
60$ 

P ASCNT/#1 

PASCNT,#4 

40$ 

#BIT1 £ HRTSUI 
PASCllT/#2 

ipVSKO/OPFLAG 

|fIdSK0^ OPFLAG 

jjlloUTS/OPFLAG \ 

olflHSf OPFLAG 



Ibito^hrtsu 

&2/ERRSWI 




I SKIP 

JTEST IF READ THIS PASS 

|S0 - SUP 

} ELSE DO READ 

ICOMPARE DATA 



J BUMP SECTOR 
/TEST IF ALL 
;NO - LOOP 



SECTORS USED 



ICLEIR DESIRED SECTOR 
ICLEAR MRITE/READ SWITCH 
IBUMP PASS COUNT 
ICLEAR ALL QUALIFIERS 

ITEST IS PASS 3 
|YES - SKIP 
/TEST IF PASS 6 
>YES - SKIP 
{TEST IF PASS 1 
>YES - SKIP 
I TEST IF PASS 4 
|YES - SKIP 

ISET WRITE REQUIRED BIT 

ITEST IF PASS 2 
lYES — SKIP 

|SEf REVERSE QUALIFIER 

;go do mvt PASS 

{SET PUD QUALIFIER 
IGO DO f&EXT PASS 

SET QUALIFIER 
,SKIP 

?SET MESSAGE QUALIFIER 
ISET MRITE REQUIRED BIT 
|GO DO NEXT PASS 
}IMT ERROR SVITCH 



JEXIT TEST IF ERROR 



|SET FOR READ AND WRITE REQ. 

| TEST IF PASS 3 
?NO - SKIP 

T33TBL*6^fBLSTR ? STORE MID POINT IN TABLE 
;Gp START PASS 4 
{CLEAR TO PASS 

;GO SWAP TO HEAD ONE OR ABORT TEST 

I ABORT RETURN 

| STORE START OF TABLE 

401$ {GO DO HEAD 1 



!|33TBL,T8LSTR 



EMT 



C$ETST 



ASSEMBLY ROUTINES 
CZRLOB.PT2 22-MOY-78 



MACY1* 
15:57 



30AU052) 22-IOf- 
*fESf 19 



78 



16:32 PAGE 3 



SEQ 0138 



037736 
037736 
037740 



000130 
040072 
000001 

000130 
-"1114 



BGIMOD 

BGBHRD 



GPRML 



GPRMA 



GPRMD 




HRDPRM 

.WORD L10063-LSHARD/2 
CNffPEsCITtlilfES 



BGIMOD 
BGMSFf 



GPRML 



GPRML 



lt¥PE 

|Rggg|60000 / 177776 / YES 

RMSG 
' OLIM 



:3S§§ 

cl88sG,C 

• MQRD 

• WORD 
VECMSG,V 
*WORD T: 

• WORD ¥1 

• WORD TSLOLIM 
.WORD flHILIM 
§RMSG,PRIOR,0,340,0,7,YES 
•WORD tSCODE 

• WORD BR MSG 

:vhb hot 

.WORD DRMSG 

.WORD 3400 

•WORD TSLOLIM 

• WORD TSHILIM 

• EVEN 

.ASCIZ 

«ASCIZ 

•ASCIZ 

. ASCIZ 
•ASCIZ 

• EVEN 
SFTPRM 

•WORD L10064-L$SOFT/2 

CYLQ^MISWI-l-YES 
. WORD TSCODE 
•WORD CYLQ 

• WORD 1 
SECQ / MISWI,2 £ YES 
. WORD TSCODE 
. WORD SECQ 



lILIM 

" ~,0,776,¥ES 



400,0,7,YE3 



/BUS ADDRESS/ 

/VECTOR/ 

/BR LEVEL/ 

/DRIVE/ 
/RLll/ 



ASSEMBLY ROUTIMES MACY11 301(1052) 22-NOV-78 16:32 PAGE 3-1 

CZRLDB.PT2 22-NOV-78 15:57 *TEST 19 **OVERWRITE 



SEQ 0139 



000002 




040064 
040064 



-003H? 

mm 

000130 



1$: 



2$: 



3$: 



•WORD 2 

MANQ,MISWI, 100000, YES 
. WORD TSCODE 
•WORD MANQ 

» WORD 100000 



GPRML , 



LQLIMQ 

• WORD 

• WORD 

• WORD 
XFERF 
. WORD 
GPRMD 

• WORD 

• WORD 

• WORD 

• WORD 

• WORD 
GPRML 
. WORD 

• WORD 

• WORD 
XFERF 

• WORD 
GPRMD 

• WORD 

• WORD 

• WORD 

• WORD 

• WORD 
GPRML 
. WORD 
. WORD 

• WORD 
XFERF 

• WORD 
GPRMD 

• WORD 

• WORD 

• WORD 

• WORD 

• WORD 
GPRMD 
..WORD 
. WORD 
. WORD 
« WORD 

• WORD 
GPRMD 

• WORD 
. WORD 

• WORD 

• WORD 

• WORD 
AUTQQ, 
.WORD 



l,MISWI, 40000, YES 
TSCODE 
LQLIMQ 
40000 
IS 

TSCODE 

LI MVAL,LOLIM,D,255«, 0,253., YES 
TSCODE 
LIMVAL 

IIlolim 

TSHILIM 

HILIMQ,MISWI, 20000, YES 



TSCODE 

HILIM 



MQ 

20000 
2$ 

TSCODE 

LIMVAL,HILIM # D,255 8 ,0,255. # YES 
TSCODE 
LIMVAL 
255. 
TSLOLIM 
TSHILIM 

H£ADQ,MISWI, 10000, YES 
TSCODE - 
HEADQ 
10000 

TSCODE 

HEADV,HEAD,D,17,0,1,YES 

TSCODE 
HEADV 

TSLOLIM . ' 

TSHILIM 

ERLIMQ,ERLIM,D,377v,0,377,YES 

TSCODE 

W" Q 

TSLOLIM 
TSHILIM 

DCLIMQ,DCLIM,D,377, 1,377, YES 

TSCODE 

TSLOLIM 
TSHILIM 
MISWI.20,YES 

TSCODE 



ASSEMBLY EOOflilS 
CIRLDB.PT2 22-IOf-7S 15:57 



MICfll 30K1OS2) 22-iOf~78 16:32 PAGE 3-2 



•♦OVERWRITE 



mm mm 



040072 

4i 



OSS 



040442 



0404 



ill 
PI 

047520 
040524 

ill; 



WORD 
WORD 



ml 



ill 

fliol 

05151 
041441 

ml 



052 



ml 



*f EST 19 

EMDSPT 

• EVEN 

L10064: 

cylq: .asciz /use all cylinders/ 

secq: .asciz /use all sectors/ 

mahqs .asciz /execute manual intervention tests/ 

LQLIMQ: .ASCIZ /LOWER SEEK LIMIT/ 

LIMVAL: .ASCIZ /ENTER VALUE/ 

HILIMQ! .ASCIZ /UPPER SEEK LIMIT/ 

HEADQ: .ASCIZ /USE ONLY ONE SURFACE/ 

HEADY: .ASCIZ /SPECIFY SURFACE (0 OR 1)/ 

ERLIMQ: .ASCIZ /SPECIFY ERROR LIMIT/ 

AUTOQ: .ASCIZ /DROP DRIVE IF NO RESPONSE/ 

DCLIMQ: .ASCIZ /DATA COMPARE ERROR LIMIT/ 

• EVEN 

ENDMOD 
. = 40 5 1,4 



ASSEMBLY ROUTIICS MACY11 301(1052) 22-NOV-78 16:32 PAGE 3-3 

CXRLDB.PT2 22-NOV-78 15157 *TEST 19 "OVERWRITE 



111 ^5iS55| S iSI E il£iq?iI C 2s A 8Eis?2l« D |S G PSB5pE AP? TO LSI-It COMPATIBILITY. 

181? ;BIT 7 OF "LASTAD" MUST BE CLEARED TO ACHIEVE A VALID MAILBOX ADDRESS 

i|4j ; WHEN RUNNING ON THE LSI-11 UNDER APT. 



14 040514 LAST AD 

I] 040514 L$LAST : : 



.EVEN 




40AU052) 22~HO¥-78 16532 PISE 4 

Diagnostic superwisou — LOi com set up seq 0142 



a < odd§5d .word v ;SIZ§ 

1 mul III jSgl| op 8 +2 iSHl K g? M H51^pS5Sl? E IIfc]ScSll8i 

2 000200 .END 200*** 



ASSEMBLY ROUTINES HACYll 301(1052) 22-MOV-78 16:32 

CZRLDB.SUP 23-OCT-78 09:53 SYMBOL TABLE 



PAGE 5 



SEQ 0143 



ABOFLA 

ABOPAS 
ABO.FM 
APMID 
AFMIDU 

AFSI 

ALLCYL= 

ALLOC 

mm 

APT. ER 

ARMIDU 
ASSEMB= 
AOTDQ 
AUTOSZ* 

aIaah 

tttii 

AsAAZ 

ilmo- 



BGM.SU= 

EHST AT= 
INHSG 
BITO = 

||||0 = 



041040 
040756 



0453 



10 = 00 



:8U 



BIT7 
BITS 
BIT9 
BLD.Htf 
BLOCK 
BRMSG 
BSCHK 
BSFLAG 




000040 
000100 



CMV 
COMMAN 
COMMTA 

COHPOP= 



064260 

mm G 

007777 



CONHNG= 
COHTCL 

COHTIM 
COSTAT* 
COOMT 
CRD¥HS= 
CRLF 
CSNAM 
CSR = 
CSRMSG 
CURCYL 
CURR.S 
CURR.T 
CYLQ 
CYLTBL 
CYLOP = 
CYLHO 
CSAAD 
SAAE 
SAAK 
SAAL 
SABR?= 
SADR = 
SAU = 
SBRK = 
SBSEG= 
SBSUB= 
SB0FF= 
SCEFG= 
SCLEA= 
SCLP1 
SCVEC 
SDCLH 
SDODU 
SDRPT 
SOU 
SEDIf 
_ SERDF^ 
, v CSERHR: 
C$ERSF: 
ERSO 
ISCA: 
SESEG 
SESUB 
SETST 
SEX IT" 
SGMAN: 
SGPHR 
SGPRT 
SGTIM 
SINIT 
SIMLP: 
SKWOF 




061 ^ _ 
005733 
000000 

gpili 

040522 

mm 

002352 
007340 

ill 

181:" 



= 000 



oooJi 



000034 



000050 

mm 

000002 



|IIri= 

SSVEC= 
STPRI= 
§U8BU= 
§HTM = 

WTU = 



DESHD 
DESSEC 



005745 
000001 

mm 

00400Q 
000012 
040410 
013404 
06 0004 
002530 
002534 
002536 
002532 
°40i26 
000000 



€07314 
010000 

mm 

070344 

000001 
037712 




045500 

Mil 

040332 
013402 
002662 
054314 
053114 



AfSBKBLY ROtmitS MACYU .301(1011) 22-101-78 16:32 PAGE 5-1 

e£KLDB.SU? 2J~OCt-7t ft |53 SYMBOL TABLE 

GSEXCP= 000400 

w° mm 

g|n8 = 000000 

GfOFFS= 000400 

- OFSI= I 

PHMA= l 

PRWD- i 

RHL= i 

RADA= i 



GilXFE 



fSSf* 

pit 

Bp 

GLBERR 

mm 

GSTATR 



fES = 
lOME 

Hit- 



HF1N0 
HFOOT 



ugsso 




6060S0 

'M 
mm 

054102 

mm 

000041 

mm 

000041 

Urn] 

000041 
000041 
000041 





ST A 



15756 
5754 



L10043 
L10044 

L10045 



ASSEMBLY ROOTIRES MACY11 30A(1052) 22-MOV-78 16:32 

CZRLDB.SOP 23-OCT-78 09:53 SYMBOL TABLE 

MHCRC 

MHDERR 
MHDRCP 
MHFCRC 
MHNF 
MINOUT 
MIN.IN 
MIN.US 
MISWJ = 
MISHIW 
MITEST= 
MHDRST 
MNEERR 
MNOCLR 
MMQINT 
MODR 
MOPER 
MOPERR 
MORECE 
MQUTIN 
MPNAM 
MQUALS= 
MREAD 
MREADH 
MRESKQ 
MREVSK 
MRLFAL 
MRSLT 
MSEEK 
MSG. AD 
MSG.TY 
MSPERR 
MSTEPR 
MTMBS 
MTOSLD 
MUL 

MULOAD 
MUNDEF 
MHDERR 
MWGERR 
M WORD 
MWRCHK 
M WRITE 
MWRSET 
MWRTAB 
M40HDR 
NEWCYL 
NEWPRI 
NEXTAR 

005337 NOCLR = 

005372 NOERCT 
005032 NOIRPT= 
007777 NOOP = 



SEQ 0145 



030130 
030076 
031676 

mm 

mn 
mm 
mm 



0401 



8o5462 
005503 
000001 
007554 
006115 

iy 

007576 
002000 
007623 
007543 
007665 



mm 



006062 
Q20256 
005143 
010032 



002122 
007277 
007250 
007254 
007231 
002576 
002600 
002602 
002604 
002606 
002610 
000040 
000000 
000000 
000000 
000001 
000001 
000001 
000001 
063506 
000000 

00?6?1 
013676 
003062 
040530 
002234 



PAT1 
PATIO 



PAT6 
PAT7 



004466 
004742 
004470 
004530 
004570 
004630 

mm 



071272 
071274 



006356 
QO 6402 
006424 
006431 
006446 
006463 
006477 
006517 



